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EDITORIAL 


THE ARM 3 

As you will have seen in last month's RISC User, Aleph One Ltd, are developing an ARM 3 
upgrade board for the Arc. Acorn's ARM 3 is a development of the ARM 2 RISC chip used in all 
of the current Archimedes range (including the A3000 and the A400/1 series). It contains a 4K 
on-board memory cache, and promises very significant speed increases over the ARM 2, At the 
rumoured price of around £600 for the upgrade, it will be cheaper than Acom^s long-awaited 
floating point co-processor board (this is expected to cost around £700), and for many 
applications will offer a much greater speed increase. The floating point co-processor, for 
example wilt not make Basic run any faster at all. Because of the importance of the ARM 3, this 
month's RISC User features an article on the chip by Acorn's Roger Wilson, the author of Basic V, 

RISC USER 

Thanks to all who have answered last month's questk>nnaire. We have been very pleased with 
the enthusiastic response, and we will publish the results in a future issue of the magazine. 

You will also see that one of the items in this month's magazine features a program which is too 
long to be listed in the magazine itself, but which is available on the magazine dsc. While we do 
not intend to treat more than one program per issue in this way, nor to devote more than a page 
Id its description, this abroach does allow us to supply programs which would otherwise not 
see the light of day because of their length. 

Finally, please note that as from early August, our new address will be: 

t17 Hatfield Road, 

St Albans, 

Herts AL1 4JS. 

For full details, see the insert with this issue. 

See you at the BBC Acorn User Show (July 21-23), or at our forthcoming Open Day in St Albans, 
This month's telesoftware password is cranberry. 
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DTP IS HERE 

Spring seems to be the time for desktop publishing 
packages. Firstly, Acorn's long awaited system is now 
available. It is unimaginatively called Desktop Publisher, 
and is in fact a modified version of the Timeworks 
package for the Atari ST The package includes the ability 
to use a wide range of text sizes and styles^ and also 
allows pictures to be incorporated. Desktop Publisher 
costs £171.35 (inc. VAT] and will be available from alt 
Acorn dealers. 

Another DTP package is Pixei Perfect from AVP, 
which was originally launched some time ago, but has 
now been rewritten to take advantage of RISC OS, Unlike 
Acorn's system, Pixel Perfect is aimed mainly at the 
educational market More details can be obtained from 
AVP Computing, School Hill Centre, Chepstow, Gwent 
NP6 5PH,tef. (0291)625439. 

Meanwhile BEEBUG has developed its own OTP 
package, and details can be found on the following page^ 
and in the current retail catalogue. 

MACH PRODUCTS 

MACH Technology, a new company on the 
Archimedes scene, promises a wide range of quality, low 
cost products for the Archimedes. Among their first 
offerings are a 20Mb hard disc upgrade for the 300 series 
at £249 (all prices inc, VAT), and an 80286 based PC card 
for £300, This latter device will allow PC software to run 
many times faster than it can be under the PC emulator. 
Also promised is a hardware floating point co-processor 
which will rival Acorn's own unit, which is due for release 
very soon. On the software front, Mach are offering a full 
desktop publishing package for £89.95, a Basic compiler 
for £39.95, Hypefbase, a graphical database, for £49.95, 
and a Modula 2 compiler for £89.95. More details, and 
information on availability, can be obtained from Mach 
Technology, 75 Hyde wood Road, Little Yeldham, Essex 
C09 4QX, tei. (0787) 238125. 

THE PIPEDREAM GROWS 

Colton Software has totally rewritten their popular 
integrated word processor Pipedream to make it fully RISC 
OS compatible, Pipedream J is fully multi-tasking and has a 


number of new features, including the ^ility to import View 
and Viewsheet files directly. New spreadsheet features 
allow for multiple sheets with cross references, together with 
several new functions. There is a macro recording facility to 
en^le sequences of actions to be remembered, and files 
can be exported directly into Acorn's Desktop Pub/isher. 
Pipedream 3 indudBs an in-built spelling checker, and costs 
£169.05 [inc. VAT), The package will be on sale at the BBC 
Acorn User Show in July. 

SCSI HARD DISCS 

Oak Computers, best know for the Oak PDT design 
package, have developed a Small Computer Systems 
Interface (SCSI) podule for the Archimedes. SCSI is an 
intelligent interface designed mainly for connecting mass- 
storage peripherals to computers. The Oak unit will allow 
up to four hard disc drives to be connected, each with a 
capacity of up to 512Mb. One use of the new board will 
be for owners of model B hard discs, who wish to connect 
them to the Archimedes. Price and availability are not yet 
known, though Oak say that the interface will be on 
display at the BBC Acorn User Show in July. 

I SPY A BIRD 

Birdbg is a public domain database specially tailored 
to the needs of bird watchers. The package allows you to 
keep track of the comings and goings of different species, 
in a number of places, on a day-by-day basis. Facilities 
exist for statistical analysis of the data, which can 
subsequently be exported to a word processor, Birdlog is 
supplied with a 9600-word user guide on disc, and can be 
obtained by sending £5.99 (to cover disc and costs) to 
David Pilling, PO Box 22, Thornton Cleveleys, Blackpool, 
FYS 1LR. 

RISC OS SUPPLY 

RISC User members who feel that they have been 
waiting for ages for RISC OS upgrades will be pleased to 
know that Acorn believe the supply problem to be over. 
By the time you read this, all outstanding orders from 
BEEBUG should have been satisfied, and RISC OS will 
be available from stock. Acorn say that tie problem has 
been equally bad for all dealers, and is a result of the time 
■ taken by Japanese companies to produce the required 
quantities of ROM chips. 
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BEEBUG NEWS 

On this page we take a look at some of the exciting new 
products and developments at BEEBUG which will shortly 
be available to RISC User members. 

NEW ARCHIMEDES PRODUCTS 

BEEBUG has been busy developing a number of new 
products for the Archimedes. Rrst and foremost is a full' 
feature desktop publishing and word processing 
package. It is fully WIMP based and makes extensive use 
of 'fancy fonts\ As well as entering and laying out text tn 
many styles and sizes, sprites and draw files can be 
mcluded in the document. There is also a fast built-in 
spelling checker. 

A perfect companion to this is our new 200 dot per- 
inch handheld scanner and interface podule. This 
allows photographs and pages of text to be read in as 
sprites, and then incorporated into documents or used in 
other packages. The scartner wilt be available in A6 and 
A4 widths, with an optional sheet-feeder for the A4 model. 

The BEEBUG Hard Disc Backup will be of particutar 
Interest to all hard disc users. Tbis WIMP driven package 
allows either full or incremental backup of files, and uses 
a compression technique to reduce the number of 
floppies needed. Also included is a multi-file archiver and 
de-archiver, and a utility to locate files on your hard disc. 

All of these products can be seen at the BBC Acorn 
User Show (see below], and more details are given in the 
current retail catalogue, 

BEEBUG EXPANDS PREMISES AND 
PRODUCT RANGE 

BEEBUG and RISC User are moving to new and 
larger premises in St, Albans in early August. This long 
awaited move will enable us to offer a number of new and 
improved services. 

The new showroom is about double the size of the 
existing one, enabling us to have more equipment on 
display. It will also allow us to offer Aries and Amstrad 
PC's for customers who have requirements tn this area. 
We have now employed a full-time engineer and can offer 
a faster turnaround on repairs, Additionally, in response to 
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requests from members, we now have a training facility, 
and will shortly be offering competitively priced courses 
on a variety of subjects. 

Please see the enclosed leaflet for more details of our 
new premises, and an invitation to our open day to see 
our new facilities and meet the staff. 

ORDER AND SUBSCRIPTION PROCESSING 

We have recently installed a major networked 
computer system to handle order processing and 
subscriptions. This means that whether you phone in with 
an order or subscription, we will have all your details to 
hand. Our telesales staff. Julie and Debbie, will key your 
order straight into the computer, which now enables us to 
despatch over 80% of orders on the day they are 
received. On subscription processing, Mandy and Sarah 
can similarly renew your subscription or change your 
address etc., instantly over the phone. 

The new system also keeps control of our large stock 
of hardware and software, thereby ensuring that we can 
re-order items before running out. As a consequence of 
this new system, your personal membership number is 
now more important than ever, and should always be 
quoted over the phone, or in correspondence. 

BBC ACORN USER SHOW 

The BBC Acorn User show at Alexandra Palace from 
21 St - 23rd July is the only Acorn-specific show this year, 
BEEBUG and RISC User will be there on stand 55. We 
will be demonstrating all the new products mentioned 
above, along with many other items including the new 
Acorn A3000 computer (currently on demonstration in 
our showroom). The magazine and technical staff will be 
on hand to chat with members and try and help with any 
problems. Alternatively, why not take the opportunity to 
meet the faces behind the names seen on the pages of 
BEEBUG and RISC User. 

NEW CATALOGUE 

With this issue of RISC User you will have received a 
much larger retail catalogue than normal. This new format 
catalogue allows us to give more details, and pictures of 
products. Included in this new catalogue is the full range 
of Amstrad and Aries PCs which we stock. 1^ 
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>BC ACORN USER, with the hack¬ 
ing of the BBC and the enthusiastic 
support of Acorn Computers, have 
together planned what could be the 
most exciting computing event of the 
yean 

The new. all-action BBC ACORN 
USER SHOW is back, at the first 
home of BBC TV-Alexandra Palace 
featuring:- 

• new product launches 

• new softw^are 

• massive com puling 
exhibition 

• informative seminars 

• technicalcHnics 

• workshops 

• demonstrations 

All this and more will make 
the new BBC ACORN USER SHOW 
a real must for everyone interested 
in computers and their applications. 

There are daily competitions, free draw's wdth 
fabulous prizes to be won and celebrity guest 
appearances. 


Pacilitiesal the tastefully restored Alexandra Palace 
are simply superb and it’s so easy to gel to by road, rail 
or lube. If youVe drivingyouTl be glad to know'there are 
2000 free car parking spaces. So why not make a day of 
itV Apart from the beautiful grounds youTl find some¬ 
thing interesting and exciting around every corner. 

W^hy not save lime and money by booking your ticket 
in advance? Culthecoupon now and ensure your 
priority booking. 


Narn 


Address 


.— .1 

ALEXANDRA PALACE ■ LONDON 


i Friday July 2 lBt 3 pm- 9 pin 


f Saturday July 22 nd lOam-dpm 
Sunday July 23 rd 10 am‘ 6 pm 



BOOK NOW AND SAVE 

Advance Tiekrlit Adulte £2.50 tinder 
£1.50 

Al the doon Adqli* £3.50 Under tOa £2,50 

Please send me. __ Ad nil Tic keta al 

£2.50 each 

Please send me_ Under 1 65 Tickets al 

£] .50 each. 

I enclose che<jue/P0 for £___ 

payabie to SAFESKI.M.id,. Markei House, 
tlmss Road. Tadworth. Surrey KT 20 5!iiR. 
DONT SEND CASH. 
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The ARM3 RISC Processor 


Roger Wilson, Manager of Software Development CAR&D) at Acorn, 
lifts the lid off Acorn’s latest RISC Processor 


The current range of ARM based 
computers (Archimedes A410/1, A420/1, 
A440/1. R140 and BBC A3000) all use the 
Acorn-designed ARM2 VLSI chip, a small, 
cheap and fast RISC microprocessor, running 
at a clock speed of 8MHz. In the laboratory 
ARM2 has fun at 20MHz by using very 
expensive static RAM, but the requirements of 
the commercial mar¬ 
ket limit the current 
machines to running 
ARM2 at 4 or SMHz 
with ordinary mem¬ 
ory systems built 
from 120nS dynamic 
RAM. 

ABM3 is design¬ 
ed to run at higher 
speeds white using 
standard memory. 

It can do this be¬ 
cause of the typical 
behaviour of a pro¬ 
gram: instructions 
and data are re-used 
many times (for 
example in loops) in 
order to complete a 
task. By copying 
instructions and data 
into high speed 
memory as they are first encountered, the later 
references will run faster. The high speed 
memory where these copies are placed is 
called a cache (pronounced "cash"). 

ARM3 contains within it an enhanced 
AnM2 processor plus 4Kbytes of cache 
memory built onto the same silicon chip. This 
may not seem very much compared to the 
4Mby1es of memory inside the A440, but it is 
enough to provide performance benefits on ali 
programs because of the generally small 
nature of program loops. Being smailer than 
the system's main memory, the cache memory 
has. in fact, to remember two things: the 
instruction or data itself, and which address it 
came from: this latter piece of information Is 
referred to as the tag just like the address tag 
(label) on a parcel. 
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When the processor requires information, 
the tags are checked to see if the information 
is in the cache: If it is, the associated data is 
provided, otherwise an external memory cycle 
is used. To reduce the size of the stnjctures 
used by the tags, each tag guards tour 32-bit 
words of data (so 256 tags are needed for the 
4K cache on ARM3). The ARM3 thus reads 
four words into the 
cache even it the 
programmer specified 
Just one byte. This is 
actually another advan¬ 
tage: the adjacent 
locations (which will 
probably be referred to 
subsequently in any 
case) have already 
been copied into the 
cache by the time the 
program gets round to 
using them. And four^ 
word transfers are 
advantageous with the 
MEMO memory con¬ 
troller - reading the 
three extra values 
takes a little over twice 
as long. Each data 
write is checked 
against the entries in 
the cache, and it a 
match is found, the information in the cache is 
updated. 

An interesting part of the design is the way 
the position of a new entry in the cache is 
selected. As new information is copied from 
main memory to the cache, something 
currently in the cache must be overwritten with 
the new data. For ARM3 this Is selected on a 
purely random basis! Simulations have shown 
that more inteltigent algorithms (such as 
discarding the least recently used entry) do no 
better than a random one, and would 
sometimes do much worse. 

The cache is caching virtually addressed 
data (since the translation of virtual addresses 
to physical addresses occurs inside the MEMC 
chip) and so has to have an additional state to 
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The ARM3 RISC Processor 


deal with information that the supervisor mode 
can read but the user mode can't* It must also 
be cleared when the operating system, 
whether RISC OS or RISC iX (on the R140 
UNIX machine) addresses a new task. And It 
must avoid placing values which change by 
themselves (e.g. In the input/output system) in 
the cache. 

For efficiency it is also a good idea for the 
chip to be capable of not caching various 
things: for example the screen memory is a 
poor subject for caching, being written first and 
read second (If at all), and being decidedly 
larger than the cache. And there are areas 
readable at two virtual addresses (like the 
screen and the physically addressed RAM), 
and even places where reads and wiiles are to 
different devices (e.g* read the ROM and write 
the MEMO control registers). 

To support all of these miscellaneous 
facilities there are some cache control registers 
in ARM3 (which only the supervisor can 
change). These three registers split the memory 
into 2Mbyte sections providing 3 options: 

1* Uncachable: set I/O areas, doubly 
mapped DRAM etc. to uncachable 

2. Updatable: writes are copied to the 
cache 

3. Disruptive: writes will invalidate the 
cache 

By setting these control bits appropriately, 
RISC OS and RISC IX systems can be run 
totally compatibly on the ARMS with no 
changes to the applications or the operating 
systems. When reset, ARMS disables its 
cache, thus allowing these operating systems 
to be started as if ARMS were an ARM2. a 
cache inltiaiisatlon program can then be run to 
turn the cache on. 

In addition to "simply" going fasten ARMS 
provides some new facilities. The first is to do 
with the CO processor bus: if all the accesses to 
memory are fulfilled by the cache, how does the 
CO-processor (currently attached to the data bus 
between ARM2 and MEMC) function? ARM3 
has a separate co-processor bus to which 
existing co-processors can be attached. 

The second facility ts more interesting: a 
single ARM3 uses only 1/4 to 1/2 of the data 
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bus bandwidth provided by MEMC. If the video 
system isn^t using It, why not add another 
ARM3? (though its not as simple as it sounds!) 
If one is to use multiple ARM3s they need a 
secure method of communication which will 
return a valid answer even if all the processors 
try to alter the same location simultaneously. 
Ordinary LDR/STR communication is not 
secure; if one processor moves a value to a 
register, adds one to it and writes it back, 
another processor might have written 
information to the same location in the interim. 
ARM3 has a LOCK signal added to its bus 
interface and an instruction which uses it: SWP 
swaps a byte or word between register and 
memory, doing the load and store with LOCK 
asserted so that other processors will not gain 
access to the bus in between these operations. 
This enables a particular processor to set a 
flag (and be sure that the other processor has 
not simultaneously done the same thing) as an 
indication that a certain area of memory should 
not be accessed by the other processor 


Process 

I .Sum DIM CMOS 

Chip size 

0 72mm x 9.95mm 

Mo Transistors 
{RAMvCAM) 

309,656 

(206.454 / 62,373) 

Cache Size 

4Kbytes 

Cache clock speed 

25MHz 

Perlormance 

(120ns DRAM main mamory) 

25 MIPS peak 

12 MIPS sustained 

Power consumption 

1 Wan 

Package 

160 pin (3uad Flal Pack 

No Power pins 

41 


ARM3 characterishcs 


Obviously, with all these extra signals (and 
others like the high speed clock which runs the 
processor core), ARM3 Is not pin-compatible 
with ARM2I It has 160 pins (including 41 
connected to the power lines) and is in a quad 
flat package with 40 leads a side. ARM3 is, 
however signal compatible with the existing 
chip set so that it can use MEMO, VIDC, IOC 
and the FPPC (floating point protocol 
converter) in new designs. ARM3 has been 
tested on 1.5 micron double Eevel metal CMOS 
process where its 309,656 transistors use an 
area 8.72 by 9,95 mm. Chips run between 20 
and 30MHz dissipating up to one Watt of 
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The ARM3 RISC Processor 


power. However, It will be reduced to a 1 
micron process before high volume production, 
and this reduction in size should allow an 
increase in maximum clock rate. 


So how fast does it go? It*s difficult to say 
since it does depend on so many things: 
screen mode, ARM3 clock speed, program, 
operating system.... For a 2 OMH 2 ARM3 
running the Dhrystone 2.1 program under 
RISC OS in mode 0. the speed is increased by 
a factor of 3. But in higher screen modes like 
mode 20, the ARM3 hardly slows down at all. 
while the ARM2 runs at only 50*60% of its 
original speed, so the relative improvement is 
even greater. And if you spend a lot of time in 

mode 21. Conversely a simple mode like 

mode 18 and a different program - Smalltalk 
Express' Smalltalk-80 - gives only a 1.3- 1.5 
times improvement. In a graphical environment 
like RISC OS's Desktop, type faces, scrolling, 
panning, sprites all cache very well and result 
in a distinctly "light feeling" to all the objects: 
they move around very easily and quickly. 

Although all programs running under RISC 
OS or RISC iX will run on ARM3, there are 
some things that can be done to optimise the 
performance on ARM3, usually without 
harming the performance on ARM2: 

1. Don't unroll loops too many times. A 
common technique to speed up execution of 
loops is to "unroll" them, replicating the body of 
the loop several times and just having one end 
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of loop statement. On an uncached processor, 
this will clearly speed things up since fewer 
statements get executed. On a cached 
processor the algorithm fills more cache space 
than necessary (thus discarding other 
useful information) and re-uses the 
items fewer times. 

2. Don't use STR, STRB. On the 
cached processor, store instructions 
always halt the processor while they go 
out to memory. The normal three cycle 
cost of a store is, therefore, greatly 
magnified, becoming 6 or more cycles for 
a 20MHz processor, because of the 
relatively slow speed of off-chip RAM 
access. Collect store instructions 
together, replacing STRBs with STR, and 
STRs with STM. Load instructions also 
suffer, but at least they have the chance 
of being in the cache. I recently re-wrote 
the store floating point algorithm In BBC 
BASIC, which has to store 5 bytes In 
consecutive locations, to make it ARM3 
friendly. Before the change It took 20 stores. 0 
loads and 12 data operations to do four of them. 
Afterwards It took 10 stores. 2 loads and 32 data 
operations. The changed algorithm is slightly 
faster for an ARM2 and much faster on an 
ARM3. 

3. Try to increase the locality of the code. 
Group the code by use: put together all the bits 
which operate at the same time. Use common 
sub-routines to concentrate critical sections 
into the cache. 

Many similar techniques will occur to the 
proficient programmer! 

Since ARM3 Is relatively new there are only 
a few places where you can find out more. 
VLSI Technology Inc (Milton Keynes) will be 
selling the chip as VL86C020 and will have 
data manuals etc. Acorn and VLSI Technology 
Inc have provided papers to various 
conferences this year describing the 
Implementation of the chip. A book describing 
RISC generally and ARM2 and ARM3 in 
particular VLSI RISC Architecture and 
Organisation by S. Furber; published by 
Marcel Dekker, Inc, ISBN 0-8247-8151-1. Price 
$119.50, unfortunately, but some of you must 
be able to buttonhole a friendly librarian! m 
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I’ve got R H Y T H M -have you? 

It’s SO easy - just COUNT it through: 

1 Collect your SOUNDS within the ARC 
- great samples FREE in Rhythm Box! 

2 Choose eight new sounds for ANY bar 

3 Click on a box to HEAR a sound 

4 Play the keys and set the PITCH 

5 SYNCOPATE live or step by step 

6 Do the MIX and get it dynamic 

7 Arrange the bars and make the SONG 

8 Connect the stereo and play a HIT! 
There’s nothing like RHYTHM BOX 

try it and seel 


mmmmmtmmm m 



EVB l:HVTHM B!l 


Tel; 0702 335747 Fax: 0702 431076 
Access & Visa by phone. Send for info. 

Archimedes is a musician - ask EMR! 

Electromusic Research (EMR) Ltd 
14 Mount Close, WIckford, Essex SSli 8HG 


RHYTHM BOX is part of 
EMRs ARPEGGIO MUSIC 
SYSTEM for the 
ARCHIMEDES computers 


























































DESKTOP BASIC HANDLER 
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simplify the development of Bosic progfoms from within the RISC OS Desktop 
using this utility by Dovid Spencer 


The RISC OS Desktop provides an ideal 
environment for using the Archimedes, but 
tends to get in the way when developing 
programs. For example, the only way to edit, 
or even examine, a Basic program is to 
temporarily leave the Desktop environment. 
The utility presented here helps to get around 
this by allowing the quick conversion of a Basic 
program into its text equivalent and vice versa. 
The resulting text file can then be edited using 
Edit. 

ENTERING THE PROGRAM 

Start by creating a new directory on disc 
called B_to_T, and go into this directory. Enter, 
save, and run listing 1, which will create and 
save a fSprites file. Then use Edit to enter the 
Obey file from listing 2 and save this in the 
directory with the name !Run. Finally, enter 
listing 3 and save this in the directory as 
BCon vert. 

USING THE PROGRAM 

The converter is installed from the Desktop 
by double clicking on its icon in the viewer. 
This will cause the icon to appear on the icon 
bar. The converter cannot be ’opened’ as such 
- Instead, files are dragged onto its icon. To 
convert a file, drag It onto the icon. After a 
short delay, a save box will pop up with the 
converted text file. This can either be saved, or 
dragged directly into another application. For 
example, to examine and modify a Basic 
program, drag its icon onto the converter. 
Then, drag the resulting text file Into Edit. After 
making any changes, bring up Ed/fis save box, 
drag the file back to the converter, and finally 
save the new Basic version of the file. 

To merge two Basic programs, convert the 
first one and drag it into Edit. Position Edit's 
text caret on the first blank line after the 
program listing. Next, convert the second 
program and drag its text file into the same 
Ed//window. This will cause Ed/7 to append the 
two text files. However, it is likely that the line 
numbers will not be correct. To get around this, 
just delete the line number from the first line. 
This will force the converter to renumber the 
program when it is converted back to Basic. 
Finally, 'save* the file from Edit into the 


converter, and then save the resulting Basic 
program which will contain the two original 
listings appended. Obviously, this can be 
extended to append any number of programs. 

This month's magazine disc contains an 
enhanced version of the converter which 
allows a program to be edited outside the 
Desktop. To do this, hold down Shift while 
dragging the file onto the converter. Instead of 
opening a save box, Basic will be entered with 
the program present. After any changes have 
been made (possibly using the Basic Editor), 
press function key F1. This will re-enter the 
Desktop, and pop up a save box for the 
modified program. If you don’t wish to save it. 
simply press Return to cancel the box. 


lisfing 1 

10 REM >SpriteMake 

20 DIM sp 1000:!sp-1000:sp!4-0 

30 sp!8-16:sp!12-16 

40 SYS "OS_SpriteOp",271,sp,"!B_to_T" 
,0,34,17,12 

50 FOR Y%-OT016:FOR X%-OT033 
60 SYS "Wiif^_SpriteOp",41,,"file_ffb" 
,X%,Y% TO ,,,,,C% 

70 IF C%-7 THEN C%-8 
80 IF X%>Y%*2 THEN 
90 IF C%-0 THEN C%-7 
100 IF C%-8 THEN C%-0 
110 ENDIF 

120 SYS "OS_SpriteOp",298,sp,"!B_to_T" 
,X%,Y%,C% 

130 NEXT .-NEXT 

140 SYS "OS_SpriteOp",268,sp,"!Sprites 


••nej ? 

WimpSlot -min 32K -max 32K 
IconSprites <0bey$Dir>.I Sprites 
Run <Obey$Dir>.BConvert 


3 

10 REM 

20 REM Program 
30 REM Version 
40 REM Author 
50 REM RISC User 
60 REM Program 
70 : 


>BConvert 
Basic Converter 
Al.OO 

David Spencer 
July/August 1989 
Subject to Copyright 
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DESKTOP BASIC HANDLER 






SO dim block 256,menu 50,oldblk 100 
90 P%=blo,ckr [OPT 0:STR R14, [ROJ 
100 MOV PC,Bl4:]A%-block+20:CALL block 
110 niatcb=bloek! 20+72 :taddi:-tnatch+4 
120 PRO Gun (match) : PROCun (taddr) 

130 PROCassemble 

140 Sblock-"TASK":SYS "Wiir^ Initialise 

200, !block, ^'BasicOText" TO ,U3 

150 file=FTSwlridowjDIM oks 2i$oks^"OK" 


570 ENDPROC 
580 ^ 

590 DEF PROCbuttons(b) 

600 IF {bl8 AHD 2) THEK 
610 IF b!12="'2 PROCnienu(b) 

620 ELSE 

630 IF b!16=ficon AND (b!8 AND &50)<>0 
THEN 

640 !b-file 


160 ok=FNicon(file,132,-160,238,-112,& 
C70l913D,oks,0,3) 

170 DIM fname 255,valid 3,sprite 20 
180 Svalid-"a- " 

190 name-FNiccn(file,10,-160,186,-112, 
S;700F13D, fname, valid,256) 

200 ficon=FNicon(file,78,-92,146,-20,S 
D7006102,sprite,1,20) 

210 DIM sprite2 20j$sprite2-"!BtoT" 
220 3 icon=FNicon(-1,0,0,68,68,^3102, sp 
rite2,1,20) 

230 quit=FALSEimyref—1 
240 ON ERROR PROCerror 
250 REPEAT 

260 SYS "Wimp_Poll",l,block TO reason 
270 CASE reason OF 

280 WEEN 2:SYS"Wimp_OpenWindow" , ,block 
290 WHEN 6TPROCbuttons(block) 

300 WHEN 7:PR0Cdragdone 

310 WHEN BiPROCkey(blockJ24) ,, 

320 WHEN &:quit=TRUE 

330 WHEN 17,ia:PROCreceive(block) 

340 WHEN 19iPROCnoack(block) i t 

350 ENDCASE'' 

360 UNTIL quit 

. 370 SYS '’Hiifip^CloseDown'^ -tf 


650 SYS •’Hinfp GetWindowState**, ,b 
660 wex-b!4-bl20:vey-b!16-b!24 
670 bM-ficon 

680 SYS "Wiii3p__GetIConState", ,b 

630 !b=file:bf4=5 

700 bie=bf8+wexib!l2=b!12+weY 

710 b!16=bll6+wex:bl20=b!20+wey 

720 b!24»0:b!28-0 

730 b132-S7FFFFFFF:b!3 6=&7FFFFFFF 

740 SYS ^Wimp_DragBox",,b 

750 ENDIF 

760 IF bil6-ok THEN PROCsaveit($fname) 
770 ENDIF 
730 ENDPROC 
790 : 

800 DEF PROCmenu(b) 

810 6menu“"Basic<>Text” 

820 menu!l2-fi70207:menu!16=156 
830 menu!20=40:menu!24=0:menu!28=fi80 
840 menu!32—l;menu|36^sX000021 
650 S(menu+40)=^Quit" 

860 SYS "Wimp_GreateMenu",,menu,!b-64, 

T •- 4- 

070 ENDPROC 
830 : 

» 690 ^ DEE FNwihdo^* ' ^' 


30^^ end . ..,900 !block-900;,t^cij^-^2|0 . 

' 310 block! 3=1146Iblpckl 1^368 

4bt' DEF- HBOOi^ceive (IS)^■" i'' block i 16=0 jfi. V .• 


410 CASE b!l6 OF 

420 WHEN Oiquit-TRUE 

430 WHEN l:PROCsavetcus(b) 

440 WHEN 2;PROCdatasave(b) 

450 WHEN 3:PROCdataload(b) 

460 WHEN 6:PR0Cramfetch(b) 

470 WHEN 7;PROCramtransmit(b) 

480 ENDCASE 
430 ENDPROC 
500 : 

510 DEF PROCkey(k) 

520 CASE k OF 

530 WHEN ISrPROCsaveit(Sfname) 

540 WHEN 27 r !block=fiIe: SYS *'Wimp_Clc3 
eWindow^*,, block :PROCrelease (cst) 

550 OTHERWISE: SYS WimpP recess Key k 
560 ENDCASE 


930 block!24—l:block!28=s93 
940 block!32=Sl070207:block!36=&20D04 
950 block 140-0 :block I 44—1024 
960 block!4 8-12eO:blockI 52=0 
970 block!56-&3D:block!60=0 
980 block*64-1:block I 63=0 
330 bloc)c!84=0:$ (block+72) -"Save ast" 
1000 SYS "Wimp_CreateWindow^,,block TO 
handle 
1010 =handle 
1020 : 

1030 DEF FNicon(window,xl,yl,x2,y2,flag 
S,il,12,i3) 

1040 lblock=window:block!4-xl 
1050 block!B-yl:block!12=x2 
1060 block!L6-y2:block!20=flags 
1070 block!24-il:block!28=i2 


RISC User July/August 1989 


12 






DESKTOP BASIC HANDLER 


ft. 


lOBO block!32-i3 

1090 SYS "WimpCreat el con'V, block TO ha 
ndle 

1100 =handle 

1110 i 

1120 DEF PROCdragdone 

1130 IF totext THEN type-&FFF ELSE type 
=4FFB 

114 0 SYS "Wiir[p_GetPointerInfo",, block 
1150 block!20-64rblock!32-0 
1160 block I 36-1rblock14 0-block!12 
1170 block I 44-block!16:block!48-Iblock 
1180 block I 52-block!4 
1190 block!56“end-bst;block!60-type 
1200 $ fblock+64}-FNleaf l$fname)+CHE$0 
1210 SYS "Wiiiip_SendMessdge", 17,block+20 
.block!12,block!16 
1220 myref-block!2a:start-bst 
1230 ENDPROC 
1240 : 

1250 DEF FNleaf(path$| 

1260 WHILE INSTR(paths,","J;path$-MlDS( 
paths,INSTR(paths, 

1270 ENDWHILE 
1280 -paths 
1290 : 

1300 DEF PROCerror 

1310 SYS '"Wimp DragBox",,-! 

1320 !block-ERH;$(block+4)=REP0RTS+” (I 
nternal error code "+STRSERLt"J"+CHRS0 
1330 SYS "Wlmp_ReportError",block,1,"Ba 
sicoText" 

1340 ENDPROC 
1350 : 

1360 DEF PROCsavetous{b) 

1370 totext-(b!40=fiFFBJ 
1380 FOR F%-0 TO 43 STEP 4 
1390 oldblk!F%=b!F%;NEXT 
1400 b!l2=bi8;b!16=6 
1410 ff$=FNgname(b+44) 

1420 bst-FNclaim{b!36*2) 

1430 bend-bst+b!36*2:bst2-bsttb!36 
1440 bt20-bst2:b!24-bend-bst2 
1450 SYS ^Witnp_SendMe3sage".17,b,b!4 
1460 myref-b!8:retry-TRUE:size-0 
1470 ENDPROC 
1480 : 

1490 DEF PROCnoack{b) 

1500 IF b!12-inyref THEN 

1510 IF retry THEN 

1520 oldblk!12-oldblk!8:oIdblk!16=2 

1530 !oldblk-100 

1540 S (oldblk+4 4) ="<Wiiip$Scrap>"+CHRS0 
1550 SYS "Wimp SendMessage",17,oldblk,c 
ldblk!4 


1560 my re f-oIdblk!8:ret ry-FALSE 
1570 ELSE ERROR l,"Pipe Broken" 

1580 ENDIF 
1590 ENDIF 
1600 ENDPROC 
1610 : 

1620 DEF PROCdatasave(b) 

1630 IF b!l2-myref THEN 
1640 PROCsaveit(FKgname(b+44)) 

1650 b!12-b!0:btl6-3 

1660 SYS "Winp_SendMessage",18,b,b!4 

1670 ENDIF 

1680 ENDPROC 

1690 : 

1700 DEF PROCrajutrarismit (b) 

1710 aize+=b!24 

1720 IF b!24-bend-bst2 THEN 

1730 b!12-b!8:b!16-6 

1740 SYS "Wiirp SendMessage", l8,b,bE4 

1750 ELSE end-FNconvert{bEt2,size,bst) 

1760 PROCpopup 

1770 ENDIF 

1780 ENDPROC 

1790 r 

1800 DEF PHOCdataload(b) 

1810 IF b!40=&FFF OR b!40=iiFFB THEN 
1820 totext-(b!40-*FFBj 
1830 ff$-FNgname(b+44):X%-OPENIN ffS 
1040 s%-EXT#X%:CLOSE iX% 

1050 bst-FNclaim($%^2j;bend-bst+S%*2 
1060 SYS "OS_File",&FF,ffS,bSt+s% 

1970 end-FNconvert(bst+aI,sI,bst) 

1880 PROCpopup 

1090 IP b!l2“myref THEN *DELETE <Mimp$S 
Crap> 

1900 b!12-b!8:b!16-4 

1910 SYS "WimpSendMessage",I7,b,b!4 

1920 ENDIF 

1930 ENDPROC 

1940 : 

1950 DEF PROCramfetch(b) 

1960 IF b!24<cnd-start THEN cend-3tart+ 
b!24 ELSE cend-cnd 

1970 SYS "WimpTransferBlock",us,start, 
b!4 f b!20,cend^start 
1980 b!l2-b!8Tb!1^-7:b!24-cend-start 
1990 SYS "Win5J_SendMe33age", 18, b, bl 4 
2000 start=cend 

2010 IF start-end THEN !menu=fileiSYS " 
Wimple lo s e W i ndow ",, menu: FHOCr el eas e (cst ) 
2020 ENDPROC 
2030 

2040 DEF FNgnaine(ptr) :LOCAL f$ 

2050 WHILE ?ptr f$+=CHR$?ptr;ptr+-l 
2060 ENDWHILE 
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SILICON VISION 

SOFTWARE FOR THE ARCHIMEDES & BBC 


SolidCAD 


JD OrawgJifjng Sj^sfem for ^fcft^lecluiaJfrfesjgn. Jnfef^ortfe^rgn. fngmeeffng 
Oejsrgnflrrd Tpac^img CDT. A f/ows drawing ^ron^ & sjriee/evahons and a/sodirecl/y 

irr JD view Includes powettui zoom & pan oprro/is lot prectsjon draughting and surf bob 
dpfjnfiiicin for preaung shltd cofoui odjecfs 4/50 rrttJudes i^kv&ep, f jfrodo A Macro 
tacthisiistof destgnmg v^ry tomp/pic o5/ec(s Designs created with SoHdCAOare 

LUJtrpa.'/bJp with fpe flea//fme Grop/i^cs Language tor htgh speed fUcitef-free aormatfon. 
/fte cEis/ofn 4fc/ijmedes /ers/on a/so performs smoo/ft shading lot realism. 
So/tdC4Dr4rc/ users can upgrade lo the Realtime SoHds Kfodelier tArc} tor f 4(3.00- 

C49.95(ARC Or BBC B/B+/Master). 


REALTIME SOLIDS MODELLER 

The peerage jnc/udes ftO(h f/ie sopfi/a/Fca/eddesign envuonmenf of Sof/dC4D and the 
ihfgh speed anfmafion capabiUly of a Raa/frme Graphics Language ffTGL) moduie 
rlf-;vetoped in pure ARM R/sc code for sopercffargedperforoiiance- The package fs ideal for 
4 re hi tec (urat des rgn, Inieffpr desjgrr. f ngmeer(rtg desrgn ^ feacfimg CO T The RGL 
rnodu/e can he used to Create standa/orre Tficker-hee animation at designs from your own 
programs. Smooth shading is also performed for realistic images. T/iroogd our rn-house 
eifpertfse m 30 Pesrgn and hTigh-speed fee tin rgues, no other package can rival the design 
Drtmfonfraenf & anima tion speed of the ReaHime Sohds Modeller. 

£89.95 (ARC) 


REALTIME GRAPHteS LANGUAGE 

The Realtime Graphics Language rom provides a complete 3D So/rds Wireframe 
animaliott system with 52 star commands and JD Edtfors fordesrgnmg ob/eefs /o antruafe 
from yoor 0 iflfji pmgrams. tne/udes a 35 ,000 pinels sec hoe generator tor fast 3D drawing 
rales. 3P Rotate. Scale. Orbit. Perspecfwe and Turttegraphics. 4Jsoccmpatibte wrfti 
desrgns created with SohdC4D fSBCj 

£49.95 (BBC BfB->-iMasier) 


SUPER-DUMP 

The ultimate printer driver which take^ advantage ol the high e^treso/pf ion capaOitify of 
ordmary Epson compadb/epr/rtrers toprovfde 19^0 ^ JG24 resofubPn. fmages can also be 
seated, positioned anripfieifteEVedbefore printing. Putty compafibte with SoiidCAD, 
Reatiiine Graphics Language. Gate-4rra/ design system & 3D CAD:Animation system 
your own graphics programs or ofher C4D pacKagos can be madecompatibte with Super- 
Dump by fheaddibon ota few simpiecomrcands. Art etample program is inefuded in the 
package. 

£75.95 (BBC BtB +master), £24.95 (ARC) 




ARC-PCB 



devetoped speCitrca/ty tor fhe ArChunedes 
wilh a specification that cannot be 
matched, /neftrdes Auromalic rooting. 
Bats-nesting, stayers. Surface mount 
capobifity (3 001 resotution, 33 33 

maximum board size. Crr-tine Help, Fast 
ZoomiPan -Redraw. Tax 1 4 Si/kscreen 
facibry. l/ariabfe Une^Pad, Text'Grid sizes. 
Bart Ubraries. Siock Move Copy Boiate’ 
Mirror.Erase options, and up to 300.(300 
components. 

Pprh.iifdcopy. (he system supper Is the 
mdustry sfandard/fP-Gi-. CRAPhTEC. 
PJ.OTM4TE plotters and printers at fheir 
iiighes t r csofu fions. A Iso pro vides 
automatjc drilling mformaiion wiih 
extensive support from PCB 
manutacturers lor tmattayouf and 
productfon. optional 1 year telephone 
Ho time support (£ 1001 and software 
mamlenance service (£75} is aiso 
avaiiabfe 

£795.00 (ARC) 


R/SC BAS/C 

The hr si Irue BASIC V syntair cvmptief 
winch mil conirert your programs into 
supercharged Rise code for turbo 
performance leaving the competiiion 
standing. Eeafures include Be/oca table 
modules, full cross references. Double 
precision ffoalmg point & integer support. 
in-iine assembty. Windo w-based or 
command tme compifation en vrronmenf, 
sfandaione code generator, object code 
optinvser. futt array manipulation and 
dimensions support. muftipieeMit 
structures & tuff runtime error handier. 

£99.95 (ARC) 


Presentation System 

the package provides an interactive environment to create, edit and pfay* back compufer 
controffed presen tafruns for feefures and demonstrations. 4tso handies graph pio/tmg for 
potynomiais & user detinedtiincfions which can be incorporated within the 
pre.senfations 

£34.95 (BBCB/BhfM^stDf). £49.95 (ARC) 

A» ArchlnKdtt suftwarB run tn native mod* tm A30S - AMO A 430(30 Wtth Arthur f. 2 Or PtSC 03 

SlUCON ViStOH LTD. StGNAL HOUSE, LYON ROAD, HARROW 
MIDDLESEX HAt 2AG. TEL^ Q1-4222274<7r07-861 2773 
FAX: 01-4275169. TELEX: 9782SS SIGNAL G. 

(Access/MastercardiEurocard accepted) 

Alt prices inciude VAT and Carriage (Overseas orders add £4). 


RiscFORTH 

A rtew32-hit impiementaliPh of the 
EOB rtf-S3 standard, designed to fake futt 
advantage of the ARM architecture. 
Features inctude Mufti-tasking. 
Optimtsing compder, buHt-in AHM 
assembler with floating point mnemonics, 
buitt-in Futt screen Editor, Fite system 
interface. OS ceils support. Etoering point 
A integer maths. WfMP support. Single- 
step debugger. Shadow screen tor 
documentation, Stock manipulation. 
Dictionary & Vocabulaty display. CaH 
ftnding and a slandatone code generator. 

£99.95 
















DESKTOP BASIC HANDLER 




2070 -f$ 

2080 : 

2090 DEF PROCsaveit fname$) 

2100 IF INSTR(nanieS,''.") THEN 
2110 IF totext THEN type-^FFF ELSE type 
=SFFB 

2120 SYS "OS_File'V 10, name$jrtype, r cst, c 
nd 

2130 PROCreiease^cst):!menu-file 
21^0 SYS "Wimp_CloseWindow'% I menu 
2150 ELSE $bIock-" To save, drag the 
icon to a directory viewer" 

2160 SYS "Wimp_ReportError",bloGk,1,"Ba 
sicoText" 

2170 ENDIF 
2180 ENDPROC 
2190 ; 

2200 DEF PROCpopup 

2210 cst=bst:cnd=end:fn$“FNleaf ^ ffS) 
2220 fmS-LEFT${ff3,LENff3-LENfn $\ 

2230 IF LENfn$=10 THEN fn$=LEFT$(fn$, 9) 
2240 IF totext fp$="T" ELSE fp$="B" 

2250 $fname=fm$+fn$+fp$:!oldblk=file 
2260 IF totext THEN $sprite="file_fff " 
ELSE $spi:ite="file_f 
2270 SYS "Wimp_GetWindowState"x X oldblk. 
2280 SYS "Wimp OpenNindow",,oldblk 
2290 SYS "Wimp_SetCaretPosition"xfile,n 
ame,, , ^1, LEN$fnaine 
2300 ENDPROC 
2310 : 

2320 DEF E’Nclaim(sizeJ : SYS "OS_Module", 
6,,,size TO ,,ptr;=ptr 
2330 t 

2340 DEF PROCrelease(RETURN ptr);lF ptr 
THEN SYS "OS_Hodule"x7xxptr:ptr=0 
2350 ENDPROC 
2360 : 

2370 DEF PROCun(RETURN addrj 
2380 addr“addr+8f(laddr AND £FFFFFF)*4 
2390 ENDPROC 
2400 : 

2410 DEF FNconvert(from,len,to} 

2420 SYS "Hourglass_On" 

2430 IF totext THEN 

2440 D%=from+l :E%'^to : to=USR code 

2450 ELSE 

2460 A%"from:B%=from+len:C%=to4l 
2470 ?to=l3:to=USR tok 
2480 ENDIF 

24 90 SYS "■Hourglass_Off ” 

2500 =to 
2510 : 

2520 DEF PROCassemble 
2530 DIM code 512 
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2540 FOR pasS'O TO 2 STEP 2 

2550 P%=code:[OPT pass 
2560 STMFD Rl3!^{Rl2,R14} 

2570 .1 LDRB Rl,[R3,#l] 

2580 LDRB RO,[R3];ADD RO,Rl,RO,LSL#8 
2590 CMP RO,tfSFFOO:Moves R0xR4 
2600 LDMCSFD R13S,{R12,PC}^ 

2610 MOV Rl,R4:MOV R2,#6tADD H3,R3,#3 
2620 SWI "OS_ConvertCardinal2" 

2630 MOV R4,Rl:.ll LDRB R0,[R3],#1 
2640 CMP R0,#13;BEQ ld:CMP R0,#&3D 
2650 BEQ ln:CMP RO,#&7F 
2660 STRCCB RO, [R4),11-BCC 11 
2670 MOV R12,R3jBL taddrsMOV R3,R12 
2680 .12 LDRB RO,[Rl],#1rCHP R0,#&7F 
2690 STRCCB RO,[R4],#1:BCC l2tB 11 
2700 .Id MOV R0,#10:STRB RO,[R41x#l 
2710 B 1:.In LDRB RO,[R3i,#1 
2720 MOV R2,R0xLSL #21LDRB RO,[R3],#l 
2730 AND R1 ,r2x l&COJEOR RO^RO^Rl 
2740 MOV R5,R0:LDRB R0,tR3],#l 
2750 MOV R1,E2,LSL i*2:EOR R0,R0,R1 
2760 AND R0,R0, #&FF:MOV R2,it6 
2770 ORR R(3,R5,RD,LSL #8:MOV RlxR4 
2780 SWI "OS_CcnvertCardinal2" 

2790 HOV R4xRl:B 11 

2800 .tok STMFD R13!,{R0-R2,R14} 

2810 HOV R6,RO:MOV R7xRl:MOV R8xR2 
2820 HOV R9x#0;.tl CMP Re,R7 
2830 ADDCS R13,R13,#4jMOVCS RO,ffSFF 
2840 STRCSB RO,[R3],#1:MOVCS R0,R8 
2350 LDMCSFD R13!,{R1-R3,PC} 

2360 LDRB RO,[Re],#1 

2370 CMP R0x#13iCMPNE R0,#10 

2880 CMPNE R0>O2sBEQ tl:S(JB R1,R6,#1 

2890 CMP R0i#s 3O;BCC nono;CMP R0x#53A 

2900 BCC num:.nono CMP R9, #0 

2910 MOVEQ R9>#10lLDMEQFD R13,{R6-H3} 

2920 BEO tl:MOV R2,R9:ADD R9,R9x#10 

2930 B num2:.num LDR R2, Him 

2940 LDR R0,base;SWl "OS_ReadOnsigned" 

2950 CMP R9x#0tBNE none 

2960 . rLum2 

2970 STRB R2,[RB,#l]iMOV R2xR2xLSR #3 
2980 STRB R2,IR8]:ADD R2,R8x#3 
2990 MOV R3,#0:MOV R4,#0:BL match 
3000 MOV R6,R1:SUB R0,R2,RB 
3010 STRB RO,[R8,#2]:ADD R3,R8,#3 
3020 .eic LDRB RO,[R8],#1iCMP R0xtt32 
3030 BEQ elcsCMP RO,#&BB :MOVEQ RO,#iCC 
3040 STREQB RO,[R3,#^l] :MOV RB|R2:B tl 
3050 .base EQUD 10+(1«29) 

3060 .Him EQUD &FEFF:)NEXT 
3070 ENDPROC 
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ANCESTRY from MINERVA 


Reviewed by Sheridan Wiiiiams 


INTRODUCTION 


FEATURES 



isirffir 


5M 

m§ 

IMS 




Tracing your family history can b© a 
fascinating experience, and one that I'm sure 
many more people would get involved with if it 
were not for the sheer amount of paperwork 
needed. Ancestry, to a large extent, takes the 
drudgery out of record keeping. So if you are 
interested in starting your own family free 
research, but don't know where to start, buy 
Ancestry, enter all the information that can be 
gleaned from your tiving relatives, and lo and 
behold, you'll have the basis from which to 
expand. Starting this way, with a package as 
sophisticated as Ancestry you will quickly find 
that you are hooked on finding out more. 
Genealogy is tike doing a jigsaw - each extra 
piece of information helps complete the 
picture, except that a family tree can never be 
complete however far back you go, but that 
simply adds to the intrigue. 


Minerva supply the British Royal Family 
from Henry VII {born 1457) to Prince Henry 
(born 1984) as a sample data file. Section 3 of 
the manual takes you through the Royal 
Family fiie in a tutorial fashion, and provides a 
superb way of getting to know the package in 


THE PACKAGE 

Ancestry comes 
in a distinctive 


mauve and yellow 
standard plastic 
case, with 56 page 
manual, disc and 
registra'^on sJip, the 
latter explaining 
that you get 90 
days free software 
support, and 
inviting you to a 
further year's 
support for £30. 

"'Thd'^ fTf^riu^f' Is 
adequate, but I 
found it vague in 
places, with the 
index not directing you to aft the references. It 
explains that you should first make two backup 
copies of the original disc, unfortunately 
Minerva's method of preventing unauthorised 
use, means that you will always need to keep 
the original disc to hand, as you will be 
prompted to insert it whenever you leave the 
title screen. This applies also to copies made to 
hard disc, Minerva suggest that you contact 
them if you are unable to live with this method 
of operation. 


Figure 2. Prince Charles 
on-screen record cord 

detail. You get a real feei 
for just how powerful 
Ancestry is. Also supplied 
are Royal Family User and 
Picture files containing 
notes abQi,jt, ar\d,pictures 
of individuals. However, if 
you wish ^ include pictures 
OT/ n f i >irl 11 

require a digitiser, or art 
package for their 
generation. The pictures 
can be displayed along with other details. 
Having familiarised yourself with the Royal 
Family file, creating your own data fite is a 
relatively straightforward process. 

Two modes of browsing are available, 
TREE or CARD. TREE displays one 
generation before and after the individual 
currently selected (at startup this is individual 
number 1), and clicking on any person will 
display the three immediate generations to 


Figure 1. Tree display of Prince Charles' 
immedtafe family 
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which they are related. Clicking on the current 
individual switches to card mode for that 
person, and shows in three pages marriages 
and immediate family. 8oih modes allow fast 
movement around the file* Including a search 
for matches. 

CREATING YOUR 
OWN FILE 

This is simply 
achieved by simply 
adding cards to an 
otherwise empty 
database, you need 
not concern yourself 
with anything else. 

Matters become 
slightly more 
complex if you require the optional ‘‘User" file 
which can contain free format text about 
individuals, in which case you have to "Create 
Skeleton User File'- and decide at the outset 
how many cards you want. 

As you enter the details about an Individual such 
as forenames, surname, dates and places of birth 
and death, sex, status and title, the program 
allocates it a unique reference number You could 
use this reference tor labelling photographs, 
documents etc. The next task is to ‘link" various 
people in either of two ways * partner or child. The 
former need not be a marriage, and a person may 
have up to 7 partners. Having formed a partner 
link, you can now link offspring. Warnings can 
appear at this stage tor example VI6 at date of 
marriage", "Child bom after first parents death", 
which I found very useful in trapping errors. 

OUTPUTS 

The package supports various standard 
reports - for Individuals, Ancestors and 
Descendants, any printer wiU do tor producing 
these. There is also a very powerful and easy- 
tO“USe Report Generator, allowing you to print 
reports of your own design. 

TREE PRINTING 

For many, producing the family tree is the 
piece de resistance, and something that several 
packages fail to do automatically. Amazingly, if 
your tree will not fit a single sheet, the package 
will number the sheets for you to paste together. 


Printout takes place sideways and requires an 
Epson compatible printer. You can deckle on any 
of tiny, small, medium or large print sizes, the 
smallest allowing 12 generations per page. You 
can also select light or dark print {the latter taking 
twice as long as it uses double strike mode). 


CONCLUSION 

Unfortunately for those (like me) who would 
like to transfer data from other software. 
Ancestry is let down by its inability to generate 
or accept data in the internationally accepted 
GEDCOM data format. However, there is a 
facility to export data in CSV (comma 
separated value) format. I approached 
Minerva about getting data Into the package, 
and their response was that the file design was 
extremely complex, and other than 
approaching them to write a transfer routine 
(for which they would charge) the only 
possibility is to examine the "add a card” 
routine in the Basic program and try and patch 
in the transfer yourself. 1 succeeded in 
modifying PROCadd (lines 2760-3200) in 
program Anc/161, and in particular I replaced 
line 2940 with the necessary Input routine. 

Apart trom the data transfer aspect, I find it 
difficult to fault Ancestry, and conclude that it is 
a brilliant package. If you can find any excuse 
to buy it, then I suggest that you do so 
immediately. But beware - even though I have 
been tracing my family for many years l found I 
could not put Ancestry down. 


Froduci 

Ancestry 

Supplier 

Minervo Systems 


69 Stdwell Street, Exeler, 


Devon EX6 6PH. 


Tel. (0392) 437756 

Price 

£79.95 inc. VAT 



Figure 3. Fomlty tree for Queen ENzatoeth II 
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TimeWaich prt^vkks ihc loots lo manage appomimcnts^ a To Do* tisi of 
tasks, and jogs the memory for those important birthdays and 
anniversaries. Time Watch retains your information in pages - there is a 
page for each day of the year, for as many years as desired 





Appointments. Appointments for the day are detailed by 
Stan lime, estimated duration and a descriptive note. All 
appointments for the day are displayed in time sequence. 



Shon Notes. Useful for jotting 
down a qiukk reminder, or notes 
of a telephone conversatioa 


Tasks to do. TimeWatch will help you plan your time and keep 
track of outstanding work by displaying your details of tasks in 
one of the categories *Siart Today’, ’Ongoing' or ’Overdue!’. 

Birthdays, anniversaries etc. Don't forget those things that should 
not be forgotten. Details entered in this category will appear on 
the same page for alt years. 


^ Mil rc SoflWa ire 
■ iHl.: .,. limited 'V'|2 
International Hdiil0’' 
26 Crccchurch Lane 
London EC3A 5BA 
TeirOl-283 4646 


TimeWatch can also search for a piece of text in any, or all, of your categories of information; prim some, or 
all, of the information stored in a range of pages; and, by means of the perpetual calendar, move quickly from 
one page to another. 




fJDiscTree,: 

|U^4i«irce5^j 


Special Offen 

DeskTop Enhancer 
Users, DiscTrce offer 
price: £39.93 [inc. VAT 
^ p&pl on return of 
'drl^nal program disc. 




For those who have made use of ihe Arthur I 
diary rdes. 

DiscTrce 


.2 DcsltTop Diary, TimeWatch will import the coniems of the 


provides comprehensive, and easy 
to use, facilities to display the 
directory structure of a disc, search 
for files and backup files. 

A Tree Viewer provides the means to movc'raphJly ^ 
around the directory structure of a disc and search for 
files. Mier sp^il^jng the dirdiiorics ib aud 

type to match the files found will be displayed^ ready for. 
bading into an ediior 

A backup is performed after specifying ihe 
directories to search, file name, type and date 
10 match. These criteria may be saved lo a 
scripi file for fast and easy repeated use. 

Backup copies files matching your criteria to 
floppy discs. Files are spread over many discs if 
required. Restore displays Ihe contents of 
backup discs and allows ihe restoration of files 
by dragging to the required destination, or 
automatic restoration to their original Locations. 




■jt 


DiscTrce and TimeWatch arc written specifically for RISC OS desktop and make 
full use of the WIMP, multi-tasking and inter application communication. 


Prices: DiscTrce: £49.95. TimeWatch: £29.95 [inc. VAT and p&p]. 


Mitre 


Software 

Limited 







































































Into the ARC 


Mike Williams discusses the use of functions and procedures in Basic V. 


Last month, in the first of this new series^ I 
took a broad view of the whole process of 
program development. If your acquaintance 
with programming* particularly using BBC 
Basic on the Archimedes Is rather limited, then 
you maybe felt that I left too many questions 
unanswered. Welt, I only have so much space 
in the magazine, so this month I propose to 
look in more detail at some of those features 
which I had to refer to briefly last time. 

Foremost among the better things of BBC 
Basic are tunaHons and procedures. If you are 
going to follow the stnjctured approach to your 
programming which I advocated last Ime, then 
you need to use procedures and functions from 
the word go. To some this may seem like trying 
to run before you can walk* but ! firmly believe 
that if you get the bones of your program right, 
filling in the detail becomes a lot easier. 

Functions and procedures both work on the 
same principle. We identity some small routine 
or task within a program, we package it up with 
a unique name, and then whenever we need to 
use that routine we Just refer lo it by the name 
previously bestowed. Putting it more 
technically, we need to defme a function or 
procedure before it can be caUed. However* 
provided the definition of the function or 
procedure exists somewhere In the program, 
Basic is not that fussy as to where it is boated* 
So whether the definition or the call appears 
nearer the start of the program doesnl matter. 

Traditionally, in BBC Basic, procedure and 
function definitions tend to form the latter part 
of the program, and calls to these routines 
usually appear earlier. When a procedure or 
function is first called. Sasic searches through 
the program till it finds the appropriate 
definition* tt then enters the name of the 
procedure or function in a table so that the 
next time the same routine is called it can be 
found much more quickly by looking up its 
name in the table. 

And what* you may be wondering, is the 
difference between a function and a procedure* 
It’s quite simple: a function always returns an 
answer or result* whereas a procedure performs 
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a task which may or may not produce any 
■results\ A user-defined function is like any oth^r 
in Basic, such as SIN or ABS tor example, and 
may be used similarly. A procedure is more like 
an instmction ffor example, PRINT), and is used 
in similar situations* though It doesn't have to 
have anything to do with printing of course. 

To define a procedure we must write: 

DEF PROCname 


<body of procedure> 


ENDPROC 

but you can give your procedures any names 
which you choose (using the characters 0-9, A- 
Z. a-z. '£’ and 'underline'), and it usually helps 
to give meaningful names that remind you of 
the proc 0 dur 0 *s purpose. Typically in a 
program you might see such procedures as: 
PR0Cset_up 
PROCtitle 
PROCmenu 
PROCselect 
PROCreportl 
etc. 

The so-called body of the procedure simply 
consists of whatever instructions are needed to 
perform the task in question. We might have a 
procedure definition such as: 

1000 DEF PROCset_variahlea 
1010 xl=^0iK2=64 0ryl^0:y2=5l2 
1020 exit=FALSE:repeat=TRUE 
1030 ENDPROC 

Look at the procedures used In programs 
published in RISC User. These will give you 
plenty of examples to study and follow, and 
you may find some that can be adapted to your 
own programs* A procedure is called by simply 
writing Its name (preceded by the four letters 
PROCJ.For example* the procedure defined 
above would probably be called once near the 
start of the program such as: 

150 PROCset_variables 

Now the procedure PROCsBt_variabies is 
completely self-contained* requiring no other 
Information from the outside world (I.e. from 
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the rest of the program). Thafs fine, but often 
when a procedure is called, we need to pass it 
some additional Information. For example, It 
can be very useful to have a procedure which 
will display a text message at any point on the 
screen, and in a colour of our choice. For the 
procedure to work it will need to know the x 
and y co-ordinates of the screen position^ the 
text to be displayed, and the colour to use. 
Such pieces of Information passed to a 
procedure are called parameters, and are 
included In the procedure definition. 

Thus we might write: ^ 

‘‘ iioc DBFS»ftoC dispia,v_text (Xty,n 5 g$,c), 
1110 COLOUR c " 

1120 PRINTTAB[x,y)nisgS; 

1130 EMDPROC 

When the procedure is called, we specify the 
parameters we want. So, for example: 

PROCdisplay_text{5,1 ,^Heno wor!d'',6) 
would display the message "Hello world" in 
cyan (colour 6 in any 16 colour mode) starting 
in position 5 on line 1. You can try this out 
directly, once you have type in the procedure 
definition, to test that it works. 

The parameters '5', 'V* etc, are called the 
actuaf parameters, because they are the ones 
realJy used, whereas the parameters V, 'y', 
etc. used In the definition are called the format 
parameters because they exist only to allow us 
to define formally the procedure in the first 
place. Formal parameters can be thought of as 
variables that only exist inside the procedure 
definition. Furthermore, Basic never confuses 
the use of V say as a formal parameter, and 
the use of 'x' as a variable anywhere else in 
the program. In effect, a formal parameter is 
focal to a procedure. 

Now let’s consider another example, this 
time a procedure to get the name of a month of 
the year given the month number, and print It 
out. Here is the procedure definition: 

1200 DEF PROCget_month(monthno) 

1210 FOR I%=1 TO monthno 
1220 READ month$ 

1230 NEXT 1% 

1240 PRINT months 
1250 ENDPROC 


1260 DATA January, February, March 

1270 DATA April, May, June, July 

12B0 DATA August, September, October 

1290 DATA November, December 

To print out the name of the sixth month of the 
year, for example, we could write: 

110 PROCget_month(6) 

The procedure has one parameter, the number 
of the required month. In addition, the 
procedure needs to use an extra variable (f%} 
to controt the FOR-NEXT loop, and a variable 
^ months to temporarily §loF(§ the name of a 
month. When writing-manlf^.procedures in a 
program^ It can be diffhcplt to r^emember 
■ ‘^whe'thbf bhy partliitMr%riable fSK^ready 
in use for another purpose. We can avoid any 
potential problems by decfanng any extra 
variables used in this way as being LOCAL to 
the procedure. This means that Basic will 
correctly distinguish between any variable 
declared in this way, and the same variable 
name used elsewhere In the program. We will 
do this for PROCget_month above by adding: 

1205 LOCAL r%,mor)th$ 

if that line were included, Basic would 
remember any value assigned to /% on entry 
to the procedure, and restore it on exit. 

You can easily test this. Take the modified 
procedure above and add: 

100 I%^-999 

110 FROCget^monthJ6) 

120- PRINT II :T 

130 Ein ** 

to form a complete program. Run this and you 
will see the value of i% printed as -999 even 
though the procedure has used i% for quite a 
different purpose. 

It is always sensible to declare as LOCAL 
al[ variables (and arrays, which we'll deal with 
on another occasion) which are introduced and 
used only within the definition of a procedure. 
If you want to send any information to a 
procedure, do so as a parameter That is the 
’good’ approach, and with longer, more 
complex programs it does pay dividends. 

Many programmers are quite casual about 
the use of LOCAL, frequently omitting it unless 
absolutely essential, and often their programs 
stilt work. Trouble is more likely to arise when 
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modifications aro made to a program that has 
been In existence for some tfrne. if you have 
not used LOCAL, it is oniy too easy to 
Inadvertently pick on a variable to use in a 
procedure definition that has some quite 
different purpose elsewhere in the program- if 
clashes do occur, the results can be very 
unpredictable, and difficult to trace. 

So the general rule is to use parameters to 
pass Information to a procedure and to use 
LOCAL for everything within the procedure. 
However, with care we can be a little more 
relaxed than this, with some advantages as we 
shall see in the examples which follow. 

In the case of the earlier procedure to print 
the name of a month given the number of the 
month, it seemed natural to use the month 
number as a parameter. In other examples It 
can seem just as natural to refer directly to 
some variable. 

Here is a short procedure to read in a 
number of data items (the number is the 
parameter of the procedure), and to store 
these In a list or array. This Is referred to 
directly, and is assumed to have been 
dimensioned earlier in the program. 

500 DEF PEOCread_data(n) 

510 LOCAL 1% 

520 FOR I%=1 TO n 

530 lN?UT"Next value: " data(I%} 

540 NEXT 1% 

550 EKDPROC 

The procedure executes a bop to read in one 
value at a time, and store this in the array 
dataQ. The bop variable is only relevant 
inside the procedure so it has been declared 
as LOCAL. 

All that I have said so far can be equally 
applied to functions. In addition, a function 
always returns at least one value. The 
definition of a function takes the form: 

DEF FKname 


<body of function> 


-<vaiue> 

The name Is preceded by the letters and 
the definition terminates with an equals sign 
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followed by an assigned value, but otherwise it 
follows very much the procedure model. 

Suppose we now want to analyse the data 
we have read In to find the maximum, 
minimum and average of the stored numbers. 

A function Is the ideal choice now: 

600 DEF FNtaax(nl 

610 LOCAL I%,niax:max=data (1) 

620 FOR I%=2 TO n 

630 IF data(I%)>inax THEN max^datalll) 

640 NEXT 1% 

650 =Tnax 

This one finds the maximum value in the array. 
It sets the (temporary) maximum to be the first 
value in the array, and then compares this with 
all subsequent values, replacing it if a larger 
value is found. The last line of the definition 
returns that maximum value. 

To see how the function is used, we could 
add some additional instructions to the 
definitions of PROCreacLdafa and FNmax 
above to form a complete program: 

100 MODE 12 

110 INPUT"How many values": " n 

120 PROCread-data(n) 

130 PRlNT^The maximum value is "‘i-FNma 
x(n) 

Since the function returns a value, it can be 
used anywhere a value Is used. Here It Is 
Included directly in a PRINT statement. You 
may like to try writing further functions to 
similarly find the minimum and average of the 
values read in. 

Functions, and particularly procedures, 
should form the background of any well- 
written program. Don't be afraid of using 
them, and as often as you like. Although you 
may teel that their main value Is in avoiding 
the unnecessary repetition of the same 
sequence of instructions, you will find many 
examples where a procedure is celled Just 
once. Using procedures allows larger 
programs to be divided up into smaller and 
more manageable 'bites'. With this approach 
you can concentrate on getting each 
individual routine correct before moving on to 
the next. [2] 
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Lee Computing 


RISC OS EUCLID 
IS HERE! 


You've got RISC OS - fun isn't it? 

Here's something to stretch it... 

• Multidocument 3-D Editor 
Simple, intuitive, icon driven, 

single window interface 

• Object orientated data 
structure 

• Curved surface primitives 

• Cameras and lights 

• Grid locking and 
measurement facilities 

* Import and Export of Draw files 


EUCLID 
> Explore a new dimension! 

Price: £70 (inc VAT and P&P). 

Available by mail order from: 

Ace Computing, 27 Victoria Road, 
Cambridge CB4 3BW. 

Tel: (0223) 322559. 

Or from your local dealer. 













Glynn Clements presents a program which allows you to format floppies in the background. 


While the Desktop does allow floppy discs 
to be formatted, It does so in a rather crude 
way. In particular, alt other applications are 
suspended for the duration of the operation. 
The program here allows a disc to be 
formatted in the background, meaning that you 
can continue with other applications while the 
formatting takes place. In addition, discs can 
also be verified in a similar way. 

ENTERING THE PROGRAM 

Start by creating a new directory called 
^FQrmat, and select this as the current directory. 
Enter the Desktop, and run the lEdtt application. 
Use the Create new Obey file' option (from the 
iconbar menu) to enter listing 1, and save this as 
IRun. Next, go to Basic and enter listing 2. Save 
this with the name IRunimage. This should leave 
the directory !Format containing the two files 
!Run and iRunimage. 



Hgi 


irim 

mil lU Hw 

a 

fl Mk. otlthi 


h-iif 


- " ! 

JYliLt 


Figure 1. The formatter installed on the 
Desktop 


You might wish to design a sprite which will 
be used to represent the formatter. To do this, 
use Faint to create a mode 12 sprite which is 
34 by 17 in size with no palette and no mask. 
Call this sprite fFormal and save it in a file 
called /Spdfes within the /Formatdirectory. 


USING THEFORMAHER 

The formatter is started by double clicking 
on the IFormat directory. This pops up the 
window shown in figure 1. The four ’buttons' at 
the top right allow the drive to be selected. It is 
only possible to select drives which are 
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actually fitted to the machine* the other buttons 
being greyed-out. The three buttons down the 
left hand side select the format to use - L, D or 
E. The two large buttons at the bottom right 
start the format, or verify, options. In the case 
of formatting, a disc name must be entered 
into the box titled Nama before the operation 
can begin. You are also asked for confirmation 
before formatting. 

While actually formatting or verifying, the 
bar at the bottom of the window shows the 
progress* with red indicating formatting* and 
green verifying. A disc is automatically verified 
after it has been formatted. The menu button 
pops up a menu which offers the option to 
abort the current operation, or to quit the 
formatter. Clicking on the close box of the 
window wil! also quit the formatter. Be warned, 
though, the operation of the entire system Is 
very slugish while the formatting is in progress. 

listing 1 

Set Format$Dir <0bey6Dir> 

WimpSlot -min 32K 32K 

Run <ForTTiat$Dir>. ! Run Image 


Listing 2 
10 REM 

20 REM Program 
30 REM Version 


>!Runlmage 
Background Formatter 

A 1.0 


40 REM Author Glynn Clements 
50 REM RISC User July/August 19B9 
60 REM Program Subject to Copyright 
70 j 

80 DIM bk% 100,buffer% 56,spArea% 700 
,data% 6500,rec% 64,dli3t% 1024,icon_dri 
ve%{3} 

90 SYS "Wimp_Initialise",200,^4653415 
4,"Formatter" 

100 ON ERROR PROCerror[ERL,REPORTS) 

110 spArea%!0-2000:spArea%14-0 
120 spArea%!8”16:spArea%!12=16 
130 SYS"OS_SpriteOp",tlOF,spArea%,"Bar 
Graph",0,240,5,12 
140 FOR i%=0 TO 239 
150 FOR j%-=0 TO 4 

160 SYS"OS_SpriteOp",&12A,spArea%,"Bar 
Graph",i%,j%,0 
170 NEXT j%,il 
IBO PROCwlndow 


190 SYS "WimpSetCaretPosition",handle 
I,icon_name%,,,-1,0 

200 quit%-FALSE:quit_ok%-FALSE 
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A Mmi-TASKJI^ DISC FOmAfmK 


210 Tnode%““l 
220 REPEAT 

230 SYS "Wimp_Foll",FIftnask,bk% TO reas 
on% 

240 CASE reason! OF 

250 WHEN 0:IF mode%>-l THEN PROCdotra 
ck tdrive%,formats,mode!) 

260 WHEN 2:SYS "Wimp_OpenWindow",,bk! 
270 WHEN 3jPBOCclose__dowri {FNquit_ok) 
280 WHEN 6r 

290 change %=bk%!B and (NOT bk%!20) 

300 IF {change! AND 5)ANDmode%—1 THEN 

310 CASE bk%!16 OF 

320 WHEN icon_f0onat%: PR0Cg0(O ) 

330 WHEN icon_verifF%; PROCgodJ 
340 ENDCASE 
350 ENDIF 

360 IF (change! AND 2 ] THEN PROGmema (b 
k%!0-64,bk%!4) 

370 WHEN 8: 

380 IF !bk%-‘handle% AND bk%! 4-iC0n_nain 
e% AND mode!—1 THEN 

390 IF bklI24-l3 THEN PROCgo{0) ELSE S 
YS "Wimp_ProcessKey",bk%!24 
400 ENDIF 
410 WHEW 9: 

420 IF bk%!0=0 THEN 

430 PROCclose^dcwn(FWquit^ok) 

440 ELSE 




450 mode!—1 iPROCopdate bar (0,79, 0) 

460 ENDIF 
470 WHEW 17,18: 

480 CASE bk%!16 OF 

4 90 WHEN 8:quit_ok%-FWqQit_ok 

500 WHEN 0:PROCclose^down [qijit^ol^||^3:^*,^ 

510 ENDCASE 

I'"'"' 

530 UNTIL quit! ^ kV t 

540 SYS ^’Wimp GloseDown" ** 

550 END 

560 : 

570 DEF FNmask 


580 IF mode%=-l THEN -&33 ELSE =&32 
390 : 

600 DEF PR(X;menu (x%, y%J 
610 Sbk%-”Formatter":bk% f12=&70207 
620 bk%!16-150;bk%120-40:bk%I 24=0 
630 bk%12S-0:bk%!32—1 
640 bk!!36=&070900ll:${bk!+40|="Quit" 
650 bk%!52=&80:bk%!S6—1 
660 bk%!60-£07090011:IF mode!=-l THEN 
bk%160-(bk%|60 OR &400000) 

670 S(bk%+64)-"Abort" 

680 SYS "Wimp_CreateMenu",,bk!,x%,y% 
690 ENDPROC 


700 : 

710 DEF PROCgo(action!) 

720 LOCAL answer!,sector!,ptr!,size!, i 


730 SYS"Wimp_WhichIcon",handle!,bk!,£3 
F0000,&220000 

740 IF !bk%—1 THEN ENDPROC 
750 FOR i%-0 TO floppies! 

160 IF icon_drive!(i%)-!bk! drive%=l! 
770 NEXT i% 

730 SYS"Wiiip_WhichIcon",handle%,bk%, 43 
FOOOO,4210000 

790 IF [bk!—1 THEN ENDPROC 

800 case !bk% OF 

BIO WHEW icon_l!;format $="L" 

820 WHEN icon_d!:format$-"D" 

330 WHEW icon format$="E" 

840 ENDCASE 

850 rec!’12-4203:rec%!20=RND 
860 $(rec%+22)-STRINGS(42,CHR$(0)) 

870 $ (rec% + 22)-$title% 

880 CASE format$ OF 
890 WHEN "L": 

900 rec%m-&0201100S:jrec%!4=0 
910 reel!8-0:rec%116=655360 
920 WHEN "D": 

930 rec!iQ=&0202050A:rec%!4-0 
940 rec!18=0:rec%116-819200 
950 WHEN "E": 

960 reel!0-&0202050A:rec!!4=4ia70F 
970 rec%18=405200100:rec%116=819200 
980 ENDCASE 
990 deEects%-0 


1000 IF action%=0 THEN 
^ , -IF■ -$^tit.le%w w-U. r^HBH ?JilpPROC, ^ 

1020 tbk!=0 

■ 1^30 $ (bk!+4) ="PooHat (drived) +" ‘ 

lO40 SYS Wi.ir^_ReportErroP',bk!,&17 TO , 
answer! 


1050 IF answer!=l THEN 

1060 size!=rec!?0^7:ptrl-data% 

1070 PROCbytes{ 60 , 44 E) 

1080 FOR sector !=0 TO reel? 1-1 
1090 PROCbytes( 12 , 0 ):PROCbytes{ 3 , 4 F 5 ) 
1100 PROCbytes{ 1 ,&FE):PROCbytes( 1 , 0 ) 
1110 PROCbytes( 1 , 0 ) 

1120 PROCbytes{ 1 ,sector!) 

1130 PROCbytes[If size!) 

1140 PROCbytes( 1 , 4 F 7 ):PROCbytes( 22 , 44 E) 
1150 PROCbytes( 12 , 0 ):PROCbytes( 3 , 4 F 5 ) 
1160 PROCbytes, (l,iFB) 

1170 PROCbytes (I2a«size!, 4E5) 

1130 PROCbytes( 1 , 4 F 7 ):PROCbytes{ 24 , 44 E) 
1190 NEXT sector! 
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/ mm-TAmNo! disc FomAirtK 


1200 PROCbytes(l050-50*size%,&4E) 

1210 mode%=Oiverify%=FALSE 
1220 ENDIF 
1230 ELSE 

1240 mode%=80jverify%=TRUE 
1250 ENDIFiENDPROC 
1260 : 

1270 DEF PROCbyt€S{n%,byte%) 

1280 LOCAL i% 

1290 FOR i%=0 TO n%-l 
1300 ptr%?i%=byte% 

1310 NEXT i%:ptr%+=ri% :ENDPROC 
1320 I 

1330 DEF PROCdotrack(drive%/formats,RE 
TORN mode%) 

1340 LOCAL track%,actions,sector%,ptr%, 
sizG%,fsize%,al%,a2%,f%,errorp^ 

1350 track%“mode% MOD 80 

1360 action%«Tnode% DIV 80 

1370 IF action%=2 THEN 

1380 PROCcreate_stn!c [drived, formatS) 

1390 niode%=-l :PROCupdate_bar{0,7 9,0) 

1400 syS"XOS_CLI","ADFS:Dismount :"+STR 
S~drived 
1410 ELSE 

1420 CASE formats OF 
1430 WHEN "L": 

1440 al%=track%*4096 
1450 aZ%=track%*4096+327680 
14 60 WHEN "D","E'': 

1470 al%=track%*l0240 
1480 a2%-track10240+5120 
1490 ENDCASE 

1500 aU=al% OR {drived «2 9) 

1510 a2%=a2% OR (drive%«29) 

1520 CASE actions OF 
1530 WHEW 0: 

1540 size%-e4+{l«(Eec%?0) ) 

1550 FOR sector%=0 TO rec%?l“l 
1560 ptr%=data%+sector%*size% 

1570 ptr>it?76=track%;ptr%?77“0 
15B0 NEXT sector% 

1590 SYS"ADFS_DiscOp"i , 4 OR (rec%«6),a 
l%,data% 

1600 FOR aector%=0 TO rec%?l-l 

1610 ptr%=data%+sectcir%*sizei :ptr% ?77"1 

1620 NEXT sectors 

1630 SYS"ADFS_DiBCOp'’,,4 OR (rec%«6),a 
2%,data% 

1640 WHEN 1: 

1650 3ize^=rec%?l«rec%?0 
1 660 SYS"XADFS_DiscOp",, 1 OR (rec%«6), 
aldata%,size% TO errorp%?f% 

1670 IF {f% AND 1) THEN PROCbad(al%,for 
mats,errorp%) 


1680 SYS"XADFS_DiscOp’", ,l OR {rec%«6), 
a2%,data%, size% TO errorp%;f% 

1690 IF (f% AND 1) THEN PROCbad(a2%,for 
matS,errorp%) 

1700 ENDCASE 

1710 PROCupdate_bar (track%, track;%, 11-ac 
tion%) :riiode%+=l 
1720 ENDlFiENDPROC 
1730 ; 

1740 DEF PROCbad(addr%,formats,errorplj 
1750 LOCAL 

1760 IF nerrorp% AND fiFFFFFF) <> Sl08C 
7 THEN ENDPROC 

177Q IF formatS-"E" AND NOT verifyl THE 
N 

1780 FOR i%-0 TO 4 

1790 SYS"XADFS_DiscOp«,,l OR {rec%«6) , 
addr%+i%*1024,data%,1024 TO ;f% 
laOQ IF (e% AND 1) THEN PROCmark(addr%+ 
i%*l024) 

IBIO NEXT i% 

1020 ELSE 

1830 OSCLI"Error 0 Bad Sector at £i''+STR 
S-Uddr%J 

1840 ENDIFiENDPROC 
1850 : 

1860 DEF PROCmarkIaddr%) 

1870 IF defects%>254 THEN 

1880 *Error 0 Too many bad sectors 

1890 ELSE 

1900 dlist%S (defects%*4J=addr% 

1910 defects%+=l:EaiDPROC 
1920 : 

1930 DEF PROCerror(err%,errSJ 
1940 bk%!0-err%:$ ibk%+4)=err$+" (Error 
Code 'HSTRSerr%+"J " 

1950 SyS"Wimp__ReportError'', bk%, &1I 
1960 mode%-l60:ENDPROC 
1970 : 

1980 DEF PROCcreate_strue(drive%,format 
SI 

1990 LOCAL flags%,3ize%,ssize% 

2000 IF verify% THEN ENDPROC 
2010 CASE formats OF 
2020 WHEN ^L”:flags%=&C0 
2030 WHEN '‘D":flags%=&40 
2040 WHEN "E'»:flags%=0 
2050 ENDCASE 

2060 dlist%[(defects%*4)-£20000000 
2070 SY S"FileCore_FloppySt ructure",data 
rec%,flags%,dlist% TO ,,,size% 

2080 ssize%=l<<rec%?0 

2090 slze'fe=(size%+ssize%-l)DlVssize%*ss 
i ze% 

2100 SYS'^ADFS DiscOp”, , 2 OR rec%«6,dri 
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NOW 
RISC OS 
COMPATIBLE 


the brilliant^^^ 


Have you 

spent long hours struggling 
ivith the programming complexities of the 
Archimedes WIMPS system? 

VOU can easily and quickly build multi-window programs for Archimedes with pop-up 
menus, icons, mouse control* etc, of a professional quality. All if> BBC Basic. With RISC 
05 your programs are multi-lasking and installed on the icon bar. 

ARCHWAY provides a total environment for programming with tools, run-time code, 
program shells, extensive examples and a librafy of functions and procedures. 

The tools let you define and edit windows, multi-level menus, icons, mouse pointers 
and much more. The cut, copy and paste, undo, on-line help and hard copy print out 
facilities give you power as well as ease of use and convenience. 

The run-time code becomes part of any program you create. It aulomatiiaily handles 
windows, menus, icons, etc, for you. For example, opening a window can involve little 
more than calling a function with the window's name. Attach a menu name to a window 
using the tools and the menu functions without you writing a line of rode. Give a menu 
item a command name and when a user chooses ti a function in your code with thesame 
name is called. You fust write the contents of the function. 

An in-depth user guide takes you gently step-by-step through ^ 7 Q Q H 

a progressive series of program building examples* AH i/ 

examples are on disc ready to run. iricl. VAT & p/p 

The complete system comes on 4'0DOk discs (3tools & 1 run-time) with a 300 f page* ring- 
bound user guide. You need 1M of RAM to run the tools. One disc drive is sufficient. No 
extra licence fee to distribute copies of the run-time in your programs. 

AVAILABLE SOON: A Major New Release (VL 1). Many new features; eg powerful 
graphics and text facilities for your programs by multitasking cooperation with the RISC 
OS Draw, Edit and Paint programs. BUY ARCHWAY NOW AND UPCRADC WITHOUT 
FURTHER CHARGEI 


SJMTRQM 


Programs to 
help you 

4 CLARENCE DRIVE, EAST CRINSTEAD, 

WEST SUSSEX RH19 4RZ Telephone (0342) 328188 


Cheques/POs/official orders or Access/Visa number and 
j expiry date. 24-hour 'phone for Credit Card orders. 














































/I Mmt-rASKJl^ DISC WmAlTEA 


ve%«29^ data%, size% :ENDPROC 
2110 : 

2120 DEF PROCuipdate bar{start%,end%,col 
our%i 

2130 U)CAL i%,j% 

2140 FOR i%=3tart%*3 TO end%*3+2 
2150 FOR j%-0 TO 4 

2160 SYS '^OS Spr IteOp \ 112A, apArea%, "Bar 
Graph"rj%,Golour% 

2170 NEXT j%,i% 

21B 0 SYS"Wimp ForceRedraw”,handle%, 8+st 
art%*6,-324,14+€nd%*6,-30a;ENDPROC 
2190 : 

2200 DEF FNquit_ok 
2210 LOCAL answer%,quitoki,actions 
2220 IF mode%<80 THEN actionS-^Format" 
ELSE action$-"Verify" 

2230 IF mode%>-l THEN 

2240 !bk%=0:S(bk%+4^-"Abort "+actionS+" 
“ Are you sure ?" 

2250 SYS"Win^_ReportError",bk%,*17 TO , 
answer% :quit_ok%-^ fanswer%=l) 

2260 ELSE 

2270 quit_ok%-TRUE 
2280 ENDIF 
2290 -quit ok% 

2300 : 

2310 DEF PROCclose_down(quit_ck%) 

2320 IF quit_ok% THEN 
2330 !bk%-handle% 

2340 SYS "Wlmp_CloseWiadow", ,bk% 

2350 mode%=-l;quit%-TRUE 
2360 ENDIFjENDPROC 
2370 : 

2380 DEF PROCwindow 
2390 LOCAL temp%,flags% 

2400 bk%[0=400:bk%[4=400:bk%!8=900 
2410 bk%!12=736:bk%!l6-0:bk%!20=0 
2420 bk%!24--l:bk%!28=&870300l2 
2430 bk%!32=S01070207:bk%!36=£O0OCOlO3 
2440 bk%!40=0:bkl!44=-336:bk%’48=500 
2450 bk%!52-0:bk%!56-s3D:bk%!60=£3000 
2460 bk%!64“SpArea%:bk%’68=0 
2470 ${bk%+72|="Formatter":bk%!fl4-0 
2480 SYS"Wlj:np_CreateHiTiidow"I, bkli TO han 
dle% 

2490 teEnp%=FNicon|8,-2e3,l02,-240,£C700 
0011,0,0,0, "Naina:"] 

2500 temp%=FNicon (354, -56,462,-8,5; C7000 
011,0,0,0,"Drive:") 

2510 teinp%=FNicon (8, - 56,140, -8# 510700001 
1,0,0,0,"Format:") 

2520 $|buffar%)-"640k, Old Map" 

2530 tetinip%=FNiccin -112,296,-64, &C700 
0119,buffer%,-l,14, "") 


2540 S(buffer%+14)="300k, Old Map" 

2550 teirop%=FNicon {76, -168, 296, -120, &C70 
G0119,buffer%+14,-l,14,"") 

2560 ${buffer%+28)="800k. New Map" 

2570 teiip%=FNicon (76,-224,296, -176, SC70 
O0ll9,buffer%+28,-l, 14,"") 

2580 icon_l%=FNicon(a,-112,66,-64,&C701 
503D,0,0,0,"L"} 

2590 icon_d%=FNicon(8,-168, 66,-120,SC7 0 
1503D,O,0,0,"D") 

2600 icon_e^=FNiqon{8,-224,66,-176,SC72 
1503D,0,0,0,"E") 

2610 SYS"ADFS_Drives" TO ,floppiest 
2620 icon_drive%(0)^FNicon(354,-112,408 
,-64,&C722503D,0,0,0,"0") 

2630 icon_drive%{l)=FNicon(432,-112,486 
,-64,FNff(1),0,0,0,"1") 

2640 icon_drive%(2) =FNicon (354,-168,408 
,-120,FNff (2) ,0,0,0, "2") 

2650 icon_drive%(3)-FNicon(432,-163,486 
,-l20,FNff(3},0,0,G,"3") 

2660 titlel-buffer%+42 
2670 S(title%)-"" 

2680 $(buffer%+53)-"a“ " 

2690 icon_niame%=FNicon (110, -283,296, -24 
0,&0700Fl3D,title%,buffer%+53,ll,"") 

2700 icon_format%-FNicon (354,-223,488,- 
176,&OB0 3903D,0,0,0,"Format") 

2710 icon vert fy%-FNicon(354,-288,488,- 
236,40D03903D,0,0,0,"Verify") 

2720 iCOn_bargraph%-FNicon(8,-328,488,- 
304,^c07000006, 0,0,0, "BarGraph") 

2730 !bk%=handle% 

2740 SYS"Winip_GetWindowState", ,bk% 

2750 SYS"Wimp_OpenWiridow", ,bk% 

2760 ENDPROC 
2770 : 

2780 DEF FNff{drive%) 

2790 IF drive%>-floppies% THEN = ^C7425 
03D ELSE «&C702503D 
2300 : 

2810 DEF FNicon(x0%,y0%,xl%,yl%,flags%, 
datal%,data2%,data3%,taxt$J 
2820 LOCAL han% 

2830 bk %!0=handLe%:bk %!4=x0%:bk %!8=y0% 
2840 bk%!l2-xl%:bk%!16=yl% 

2850 bk%!20-flags% 

2360 IF textS="" THEN 

2370 bk%!24=datal%:bk%!28=data2% 

28S0 bk%!32=data3^ 

2890 ELSE 

2900 $(bk%+24)-LEFTS(texts,11) 

2910 ENDIF 

2920 $YS"Wimp_Creatercon",,bk% TO han% 
2930 =han% JJjJ 
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ArcComm Review 


Peter Rochford looks at the latest comms package for the Archimedes. 


ArcComm has been a long time coming as 
they say. This new comms package for the 
Archimedes from BBCSoft has been rumoured 
to be ready for release for the past six months 
or so. It was written by Peter Gaunt, the author 
of the Weirdbeard and Modem Master comms 
software for the Beeb. 


The ArcComm package 
comes supplied in a video 
cassette-style case and com¬ 
prises two discs, a 120-page 
spiral bound manual and a 
function keystrip. A thoughtful 
touch is the Inclusion of a printed 
disc label to use when you make 
a working copy of the main disc. 
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ArcComm is designed to work only with 
RISC OS. and runs under the Desktop. 
However, sadly it does not allow true multi¬ 
tasking. as you have to close down the 
ArcComm window totally to load a new 
application. This leaves the ArcComm package 
installed, and if online it will hold the 
communications link whilst you do something 
else. Don't get too excited about this though, as 
on a 1Mbyte machine you have precious little 
memory left to run the majority of applications. 

The window environment in ArcComm is 
not standard RISC OS. The author has opted 
for his own which, although I think it is very 
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attractive, is somewhat slower. Don't let that 
worry you too much though, as in general use, 
it does not make that much of a difference. 
However. I do feel that developers should try 
and adhere to the guidelines for appearance 
set down by Acorn. After all, they are designed 

to make life eas¬ 
ier for the user. 

The package 
features seven 
types of terminal 
emulation all of 
which are select¬ 
ed from drop¬ 
down menus. 
Three of these 
are viewdata or 
videotex, namely 
CEPT Profile 1, 
CEPT Profile 2 
and CEPT Profile 
3. The rest are the four most common scrolling 
text terminals, Teletype, VT52. VT100 and 
ANSI. 

A word of explanation about the videotex 
terminals will be needed to clarify what CEPT 
Profiles are. CEPT Profile 1 is the system 
used by the German Blldschirmtex videotex 
systepn, ^CEPT Prptil^^2 is used by the 
French Teletel ^ystenri and^t^EPT Profile 3 is 
the British Prestel-Wpe viewdata system ...A 
'A full explanation of whlH and yi^l^tef^res 
of CEPT is not really within the scope of this 
review and somewhat of a digression. The 
second disc supplied with ArcComm features 
sample screens from all three systems. If you 
have never seen the German Blldschirmtex 
system then you are in for a shock. It 
features high res graphics in up to 32 
colours. Prestel by comparison looks 
downright crude. Wake up BT! 

Back to ArcComm itself. The package 
offers three options for downloading data: 
ASCII, Xmodem and CET for telesoftware. The 
usual buffering, spooling and printing facilities 
are provided along with the saving of single 
frames or a number of frames to any one of 
four frame stores for later recall. 
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ArcComm Review 


The videotex terminals have the ability to 
edit offline mailbox frames for you to upload 
when on line. This uses templates to represent 
the standard mailbox frames. These have 
fields defined on them exactly the same as 
their on-line equivalents. This means that they 
operate exactly the same as if you were typing 
them in on line. Not only that, but a character 
count is kept that also takes account of Escape 
codes so that you cannot enter more 
characters than the online frame would allow. 
This makes offline editing child's play. 

You can use ArcComm with a dumb 
modem or a Hayes modem, the only other 
driver included is for the Dacom* as supplied 
by the DTI to schools. No facility exists within 
the package to create your own as In Hear say 
or indeed modify the existing ones. It is 
possible to write your own and load it as a 
relocatable module, but I cannot see too many 
people doing this. 

There is no telephone directory within 
ArcComm for you to set up to allow selection 
of a database to dial up. Instead, there is a 
limited form of script language similar, but 
nowhere near as powerful as the one In 
ArcTerm. This allows you to create 
procedures using a number of keywords to 
set up a sequence of tasks for ArcComm to 
perform to effect the logging on to a particular 
dialup service. Once created, these are 
selected by clicking on them from the 
Desktop, and they wilt invoke ArcComm 
automatically, set the correct terminal and 
baud rate, dial up the number and send your 
password and ID. 

Most of the operations within ArcComm can 
be performed using the mouse via the drop 
down menus or selecting one of the small 
number of displayed icons. In the videotex 
terminals, selection of routes can be done 
either by clicking on the displayed menu or 
clicking on a keypad alongside the main 
screen. An alternative method of selecting 
terminal features is by use of the functions 
keys, or you can use the main keyboard in 
combination with the Action (Ctrl) key. 

Documentation supplied with ArcComm is 
unreservedly good. The manual is a rather 
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unusual size, being wide but not very deep, tt 
is wire bound, but In such a way that you can 
read the spine when the book is placed on a 
shelf. The layout Is very clear with large left 
margins for sub-headings, and crisp diagrams. 
There Is a substantial index and an excellent 
reference section, which includes modem 
wiring details. As well as covering all aspects 
of ArcComm from a user's point of view, the 
manual also deals with writing your own 
modem driver. 

CONCLUSIONS 

When you consider the price of 
ArcComm, it really Is hard to fault It, It Is 
professionally finished and packaged, and is 
a pleasura to use. Comparisons to the other 
two major Archimedes comms packages must 
obviously be made. ArcTerm and Hearsay are 
both much more powerful pieces of comms 
software and have a wealth of extra facilities 
over ArcComm. but then they are twice the 
price, 

ArcComm scores as being a 
straightforward comms setup for those who 
need all the basic viewdata and scrolling text 
terminal features In an easy-to-use package. 
Nice as they are to have, the inclusion of the 
two European videotex terminals is a 
questionable decision as few people I doubt 
will ever use them. 

For my own use ArcComm would not 
suffice as it lacks the power, flexibility and 
facilities of Hearsay, which I use extensively. 
Having said that, there are certain features of 
ArcComm that I would dearly love to see in 
Hearsay, namely the excellent mailbox editor 
and some form of script language. 

For many people though, ArcComm would 
be a good choice of comms software and if 
your needs do not extend to those provided by 
the likes of ArcTerm and Hearsay, then I would 
wholeheartedly recommend tt. 
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Product 

ArcComm 

Supplier 

BBCSoft, 


P,0, Box 254. Wefherby, ' 


West Yorkshire. LS23 /EU. 

Price 

£29.95 inc. VAT + £1.50 pip 
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ANNOUNCING A MAJOR NEW SOFTWARE RELEASE 



Circle Software are proud to announce a m^or new software release for 
the Archimedes. Premier Is so new, there is as yet no defined category 
for n. Is it a word processor? Is It a report generator? Is it a 
spreadsheet or a data base? Premtar fits none of these categories, 
rather it spans them ail. Premier is a major advance in capability from a 
single program. These are just some of its features - 

The ability to read and axacuta oommands from tiles allows any text processing 
to be carried out just by typing a 'star' command, or picking from the desk-top. 
Further, the ability to define 'macro' commands, and to assign these to ANY key, 
allows complete 'applications' to be built, including customised spreadsheets, 
and simple data bases. A command file defining a full featured word processor, 
with matching key-strip, is included with Premier. 

This word processor alone justifies the purchase of Premier, It allows text to be 
moved between any ruimber of files open at once, searches to be made 
forwards or backwards using powerful pattern matching, document headers and 
footers to be defined, has on screen formatting and other features too numerous 
to list here. The command file defining this may be edited to tailor the features to 
your own requirements, a feature not found In any other word processor. 

DYNAMIC TEXT is a new concept which aiiows the inclusion of variable Hems 
within any document. Such items may show today's date or time, the current 
value of VAT, or a name and address. The actual text displayed may be 
computed, defined at the keyboard, or read from a data file. This system 
facilitates the production of statements and Invoices, financial reporls, or 
personalised mail shots. 

Premier's powerful command language, which Includes maths and string 
functions, repeat loops and 'H - then' constructs, may be included in the 
defInHion of a DYNAMIC TEXT Hem, allowing full spread-sheet type facllHJes 
anywhere on the page, not just in neat rows and columns. This also allows 
printer codes to be sent, providing the simplest method yet devised to control 
printer functions from embeded commands. 

Now fully RISC-OS Multi-tasking. 


Write or phone NOW for full details, 
of Premier, a £5 refundable demo 
c^sc or the full version of Premier. 




Price including 160 page 
manual and applications, 
£96 +VAT, post free. 


33, Restrop View, 
Purton, Swindon, 
Wilts. SN5 9DG 
Tel: 0793 770021 










Making the most of 1st Word Plus 


Mark Sealey recounts his experiences with isr 'Nord Plus, 
and offers some helpful tips for other users. 


Like it or loathe It. 1st Word Plus is the 
most substantial word processor available for 
the Archimedes. Many loved it because it 
came to our rescue (over a year ago) on the 
heels of the ill-fated Arcwriter 1 st Word Pius is 
not an entirely In-house product. Originally 
written by GST for the ST range, it 
nevertheless operates very well in the 
Archimedes WIMP world: a header to allow it 
to be started from the RISC OS Desktop is on 
the Acorn RISC OS support disc, though 1st 
Word Plus will not multi-task. In other respects 
it is RISC OS compatible. 


What follows is an Indication (based on 
eighteen months of almost daily use) of how to 
get 1st Word Plus to do the routine tasks as 
well as some of the more advanced ones 
expected of more expensive word processors. 
What is more, it will concentrate on those 
features which are either likely to cause the 
most trouble or save the most time. The topics 
touched on fall into five main cateyones: files, 
keying, printing, spelling and mailmerging. 

SHORTCOMINGS 

Some of this Implies that despite several 
upgrades (Acorn will update versions earlier 
than that of June 1988 if returned to them) it is 
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still less than perfect. Incredibly, 1 st Word Plus, 
has neither case-swap nor access to the 
operating system - for example to unlock files. 
It has a directory structure complicated enough 
to defer anyone unfamiliar with ADFS. and can 
behave unpredictably when changing text 
styles on screen and during formatting. There 
is no key combination to move to the top or 
bottom of files. At times, text jumps to the right 
hand side of the page and doesn't reappear on 
exit from the hyphenation dialogue box. 

Acorn is aware of most of these 
drawbacks and will, presumably, put 
them right if and when a fully updated 
version is released. 1st Word Plus 
nevertheless supports several powerful 
features such as the incorporation of 
graphics into documents, a good 
hyphenating routine, and footnotes. It 
is also easy to work on more than one 
document on screen at once, 

DISCS AND FILING 

In the first place there is an 
excellent 250 page manual. It takes 
you through the basics of text entry, 
editing, formatting and filing. On 
booting. 1st Word Plus requests a 
filename for editing, in a window 
which will become extremely familiar 
By default, this tile is in the DOC 
directory and is named "untitled". If 
you want to create a new file you 
enter your text first and name it when it is 
saved. Otherwise, if you wish to load an old 
file, simply click on its name or change 
directories to find it. 

if the file you create isn't in the DOC 
directory (see below), be sure to convert it to 
*WP mode* by clicking on the relevant box in 
the Edit sub-nrisnu. Only in WP mode can ail 
the operations which you need for formatting, 
blocks, find/replaoe and multiple rulers be 
carried out. And only when it has been saved 
can you print a file. That is the time for final 
options for printer margins and number of 
copies etc. to be set. 
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Making the most of 1st Word Plus 


The windows containing filenames only 
appear one directory at a time, but you can 
cycle up and down any directory structure very 
easily by clicking on the cross symbol normally 
associated with closing a window. If you are in 
one directory and the ftle you want is in 
another, you need to follow this procedure. The 
file's name must actually appear In the 
filenames list on screen. This Is particularly 
relevant it there is a document which you know 
exists but is not in the currently selected 
directory. This often happens when you come 
to print out or to read a file trom another 
directory Into the document being edited. What 
is more, if 1st Word Plus senses that the text 
has been changed. It has to be saved again 
before it can be printed. 

When you save a file (say letterSj with a 
name that already exists, it re-names the earlier 
version to BAKJetterS or whatever. You may 
wish to create a sub-directory called LETTERS 
if the DOC directory gets too full for all the 
filenames to appear in the window at once. If so, 
use ‘CDIR from outside 1st Word Plus to create 
both LETTERS and BAK on the same directory 
level, that is below DOC in the hierarchy. 

If you have a double disc drive, 1st Word 
Plus can be made to default to drive 1 tor DOC 
(or indeed any other) files. Working from your 
backup copy of the 1st Word Plus distribution 
disc, alter the line (line 30 in most versions) 
which sets the system variable 
7stWordPiusSDocs in the Basic program 
$.Library.1 stWord+ from "$.1wp.doc** to 
":1 .$.lwp.doc" ’ case is not important, of 
course, 

KEYING CONVENTIONS AND USAGE 

One of the strengths of 1st Word Pius is 
that what you see is almost exactly what you 
get. Width of print (condensed, enlarged etc) 
cannot be seen on screen, though. Since 
these effects are brought about by changing 
the ruler, the only way to know which style is 
selected is to keep an eye on the ruler as it 
changes whilst you scan through^your text. 
However, text effects such as itatic, bold and 
super/subscript, as well as non-standard font 
characters are actually visible on screen. But 


the exact procedure for obtaining these is 
unclear from the manual. 

Here is the sequence which effectively 
marks out small (or longer) blocks: click with 
the mouse pointer on the first character you ^ 
want highlighted, drag the now altered pointer 
along and if necessary down to the last 
character to be highlighted. Should some of 
the text be outside the screen window, Ctrl-S ' 
and Ctrl-E may be used Instead with the cursor 
keys to mark the start and end. The tetter(s), 
word{s) or Iin 0 {s) of text selected are partially 
blocked out. Next press one or more of 
function keys f1 to f6 according to the effect 
desired. They act as a toggle and can be 
combined. The text - still partially obscured by 
the blocking - will change to italic, underline or 
whatever To complete the effect, either 
reformat (ft 2) or begin to mark another block. 

To de-select the highlighting altogether, click 
with Adjust anywhere on the block. 

At times, text will jump up - as it does with 
View - onto the previous line; even when you 
have formatted it - especially after deleting an 
intervening line with f8. The answer is to place 
the cursor on the beginning of the wayward line 
of text, delete anything that may be to the left of 
it, eventually concatenating it up next to the end 
of the previous line. Re-inserting a Return there 
pushes it back down once and for all. 

PRINTING 

You might like to consider attaching 
Lingenuity’s Control Panel in the 1st Word Plus 
IBOOT file so that it always starts up with an 
appropriate machine configuration. And while 
you’re at it, what about the RISC User Printer 
Buffer utility (see Volume 1 Issue 3)? I find 64K 
is a good size for the buffer. Again the place to 
install it is In that same Basic program referred 
to already. The lines needed to do this are: 

*RMLOAD BUFMODULE 

*BUFFER on 

1 

An area about which much has been 
written since 1st Word Plus appeared is printer 
drivers. Assuming you have managed to 
translate the printer sequences into a usable 
table, these will be saved in the $.1WP.cfg file. 
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Making the most of 1st Word Plus 


Nowhere has it been made explicit how to 
change the default driver. First edit the 
appropriate file in the $.1WP directory as 
described in the 1st Word Plus manual - 
Appendix B. Next copy the ’cfg' file produced 
by running the Printer install program to the 
$. Resources. Iwp directory. You must search 
your 1st Word Plus working disc for the file 
"1wp_Prinr In the directory $.Resources. Iwp. 

Delete the file (or re-name it - e.g. to 
OLDprint - if you wish to preserve it In case of 
errors). Then re-name to 1WP_Print either the 
file you have been working on or one already 
provided to match your printer. Do not be put 
off by all this; one of the strengths of 1st Word 
Plus is the happy combination of Basic and 
Absolute code to maximise both user- 
accessibility and speed. 

SPELLING AND MAILING 

These are two final examples of such 
strong points. Spelling checks take place at a 
truly amazing rate, and are easy to perform. 
Once the dictionary is loaded (via the Spelling 
menu) pressing Ctrl-C will check as you typ>e. 
although don’t be surprised when hyphenated 
words are not recognized. 

Even greater power comes from combining 
dictionaries, and an excellent suite of three has 
just been published for £6.95 Inclusive by 
Science Frontiers. You can merge everything 
into one giant, combined specialised and 
standard dictionary using the 1 stDmerge utility 
outside 1 St Word Plus. This is the only way to 
add new words to the main dictionary. Merge 
the main one with the ‘supplementary’ file into 
which additions are all saved by default. Even 
then there will still be room for all the systems 
and utility programs on the same disc - though 
not really for data and text files as well. 

As for mail shots. IstMail (which has a long 
and extremely clear tutorial section occupying 
a quarter of the manual) is also loaded 
separately from 1st Word Plus. It obeys the 
same conventions in a familiar environment. 
There is one drawback though: page breaks 
do not work consistently. To get round this, 
spool the merged file to disc for reloading into 
1st Word Plus rather than send It directly to the 


printer. This means cycling through the output 
box at the bottom right of the screen first. 

Macros are fully implemented, drawing 
either on direct keyboard input or a data file 
(which must be in the correct. DAT. directory). 
Minerva's Mailshot (an excellent product in its 
own right) is ideal for creating such files in a 
format that 1st Word Plus (and indeed most 
other word processors) can use. IstMail can 
also handle whole files as macros so that a 
letter could effectively call a standard 
letterhead or paragraph(s) which you regularly 
wanted to be included. These can be nested, 
and their use is well explained in the manual. 

If the absence of certain standard features 
mentioned earlier is the sorest point with 1st 
Word Plus users, the flexibility and user- 
friendliness of IstMail are among the 
package’s strongest points. With some similar 
products, the combination of mouse and 
keyboard is counter-intuitive and even 
intrusive. Whatever you’ve heard about 1st 
Word Plus, give it a try. 


WORD PROCESSING/DESKTOP PUBLISHING 

Those who feel that a word processor such 
as 1st Word Pius does not offer all the 
facilities for word processing and page layout 
that they would wish, might want to wait for 
one of the new breed of word 
processor/desktop publishing packages 
expected very shortly. Acorn Computers. 
Computer Concepts and BEEBUG all have 
such products at an advanced state of 
completion, and all three are likely to be 
demonstrating their latest software at the 
BBC Acorn User Show in July. 


SUPPLIERS 


Minerva 


r 


Science Frontiers 
7 Porthill Court. 


69 Sidwetl Street. 
Exeter EX4 6PH. 
Tel. (0392) 437756 


Aberdeen 
AB1 1DU. 
No phone 


Ungenuity 

P.O. Box 10. Halesworth 
IP19 0DX. 

Tel. (098) 685476 
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Dabhand User Update 


Archinnedes Basic Compile Version 2 Ihe Quality BASIC V Compiler 
OS Guide • BASIC V Guide - Shareware Volume 2 - Software Special Offers 



Version 2 Now Availablel 

ABC Is now being used commer¬ 
cially by software houses around the 
country to develop their own prod¬ 
ucts. Repton 3 and PreserTter 2 are 
just two examples of what carv be 
done with ABC, 


Hene^whai the computer press said abou ABC version 1: 

’ .Excetf^t Dabs Press product Bityitr RISC User 


"..i can t&lf you now, f rnn very impressed, TJits is a superb pecHage,' Archive 
'ASC/s a vitaipart of aryy programmer's toofbox, it puts compilers on other 
systems to shame. Unquestionediiyone of the most impressive pieces of software 
i have yet seen runnir)g on the Archimedes ' A&B Computing 

ABC2 offers even more induding the following new features: 


Return Parameters 
Multiple exit PROCS/FNs etc 
Double and Extended precision 
rp with no loss of speed 
Shared runtime libraries 
Global TYPEtng 
Remove FP instructions 
New version 2 manual 
Technical support arid backup 


Local Error Handling 
RISC OS Desktop compatible 
(Installs on Icon bar) 

Further extended CALL and USR 
Automatic Register labelling 
Optional Command Line operation 
Improved HEAP and STACK directives 
Extra Examples 

Stiil no royalties to pay on compiled code 


Coming Soon: tJlUfties disc wHti ProStor^ Cross raferencar and Ubtwyfrt&ker pius AfiCSS tffs BBC 
6502 codo gemfStOfr Each supplisd with compmhensfva manual- 

FREE DEMO DISC: To receive your free ABC demo disc which includes a cut- 
down version of ABC simply send us a sae and well do the resti Benchmarks and 
specification on request. ,^Ct users you should have now nc 

received version 2 automaUcalty, free of charge. £39.95 


SPECIAL 


PC EfikMteor 

Purchase the Archirt>edes PC 
Emulator from us and well give 
you ARC-PC Shareware pack 
worth £34.95 Price just £1ia85 

irfc. 



ANSI C & FREE C Dafahand GiidB 

The best combination! Purchase 
Acsomsofts ANSI C and we ll throw 
in our top-selling Dabhand Guide 
to C - 512 pages and worth £14,95. 
Price just £113.85 inc VAT & p&p. 


Archimedes Games! 

Aroendlym: Board Game Fun 
Backgammon, Draughts, Reversi 
and Ouadline - four games for the 
pdce of one! Just £14.95. 

Alerion: Arcade Action! 

The highly acdaim&d Bli'Sidticn fihoot-em- 
up forth* Archimedes. Impossible'to finish E 
Superb fun! PfiCe £14.95^ 

See us at the Acorn 
User Show - Stand 98. 


Archimedes OS Guide 



Do you have 
RISC OS? 
StruQglir^g 
with Arthur? 
A Dabhand 
ide to the 
c h I m e d a s 
Operating Systam is 
the usor'eguide, clearly 
aKpJainirrg how the OS w&rks 
and ehowing you how to get 
the very best from H 


The price Of the 320 page guide is just 
E14.96 or £21.95 including the pro¬ 
grams disc (with over 40 programs) 
and manual. 


BASIC V: 

Dabhand Guide 

For anybody interested in 
BBC BASIC then this book 
is essential reading. As¬ 
suming a familiarity with BBC BASIC 
the various many new components 
of BASIC V are fully deschbed using 
example programs throughout. 

An essential aid for all ArchirT>edes 
owners, and including coverage of 
RISC OS BASIC. Price £9.95 - 128 
pages - available now. 


New! 

PC Emulatoc Shamwam Vokane2 

Now avaitahla n Volums 2 of ths Sharowaro 
Collection. Four MegahytsB of PC aoftware 
on fivo dJ«ca, all t*it«d< with tin* amubdor to 
enaur* corripatibiEity. Voluitw 2 incFudaa a 
comprehenslvo dalabaso, !«<t «dltcr. typ¬ 
ing tutor, aatronomy pftckag* and much 
mof*. Price C34.9S, 

Shareware Volume 1 

Fivadtfica aa above, th* colloction includos 
software you would normally expoct to pay 
a fortune for. Vohjrvia 1 includes a 
wordproc*a$cr. spreadsheet, gairi'Bs, flow- 
chait d*aign*r, printer utilities, and more. 
Pric* £34.95. 



DABS 

PRESS 


5 Viotoiia Lane (RUJ), Whitefield* Manchester M26 SAL 
Tel: OB 1-76B B423 BT Gold: 72:MAG 11596 Ptestel: 942876210 

Prices inc lude VAT end P&P |UK^BFPO/a), ACCESSmSA/STYLE accepted by posVphone/Mallbox/ 
in parson. Chaquee end POsto addioss abov*. Dabs Prass products available from oil good deelars. 
Add £2.50 (£12 alij if outside UK. Offtciel orctere wotcoma, 




















WIN AN A3000 COLOUR SYSTEM 

IN THE BEEBUG/RISC User SUMMER COMPETITION 

Acorn has generously agreed to provide an A30ao colour system (worth over £999] 
as the main prize in our Summer Competition. 

Ui 1987 Acorn donated an Archimedes A305 colour system as a prize fPr our ‘'AlphafneHcs" programming oompetttloa The 
Interest and response to this eras so Impressive that we propose another competition iJong similar lines, InvoMng the 
submission of a program which will be tested for speed and versatility. The competition will be open to al merrSiera of 
BEEBUG and RISC User. All programs will be timed on the same machine, thus making It fair for all. AK programs must be 
written In a subset of BBC Basic which wilt mn on any Acorn machine {except the Atom) without the use of any mi^lne cai, 
Indirection operators, or operating system calls. This means that Master owr\ers cannot use OK-PROC, White Arciymedet 
owr>ers must also avoid WHILE, CASE, IF-ENDIF, matrix operations, local error handling, RETURN parameters, local arrays, 
and the operators +=, *=, /=. Programs may, however, use the standaid Basic disc filing commands (DPS or ADFS) providing 

the nte size does not exceed 1001 

WHAT YOU HAVE TO DO 

Write a program lo generate and prirvt an expression using exactly four lours, which wiQ produce the numbers 0 lo 50 together will ihe expressions 
that generate Ihem. These tour tours may be combined in any way. providsd lhat lours are the only digits lhat appear In the expression. Mathematical 
sytnbds afe + -*/^(}.fRG[RaiidC represent ‘Sqr Root* and ‘Gamma' respeaivelyj. 

Here are some examples: 

0=444-4-4 1=44/44 

12^4/. 444/R4 17M * (44R tll4* (-4) n 

20^-04441-4 48 =r44!444-4 

l9=CR44R4/.4rR4 

Where R meai^ ‘Square Root", f means 'Fadoriel. and G means ’Gamma'. 

Tn^*(ii-l}Mn-Z)*. . ,*1 ».g. r4-4*3*241-a4. 

Gii=rcn-lj •.g. Gl=! (4-lJ = !3=6. 

The examples above do rut neoessariiy give the simplest sduliori. E g. 20 could be represented more simply as 4'(4-i-4/4}. Your program must be 
able to be easily changed lo work with numbers other ifian 'lours', tor irrstanoe it should aHow lour threes', or tour 'Eves'. 

Send a poslcard b be received by 31st August 1969 contain! rtg yojr Namt, A4ernC«roh/p Nombart Day-bm pbons number, Time 
taken for 0-50, and the Machine used, 

Serxi to BEEBUG A3QOO Competition, 

117 Hcrtheld Rood, 

St Albans, 

Herts. All 4J5 

(ptsose note that this is our now oddness os from 7th AugustX 

If you are shortisted. we will then ask you lo submit your progrann, when it will be tested back to back against other programs. Do NOT 
be put off if you have a stow machine or if your program takes ail day to provide expressions, or laiis to find ail sokrttons (they may not 
exist t) this will be taken into aoooiint in selecting the shortEst. 

CRITERIA FOR JUDGING 

Entnes wdi ba ifudged on acombinabon erf tihe entena leliad betow, and tha winner must ba abia to suppty a version suitably anmoftatod tor pdilKarBoin. BEESUG wil t» 
the sote fudge as to i^ether an entry cxmfDnms b the spirit bl the competition, and sole judge when detennining the winner. B-EEBUGs decision wi be final. No 
BEEBLIG staff or Iheir leialrves are eligibie to enter. 

1. Speed - tie progfam that finds expressions for the numbers 0 to 50 m the shortest brtiewhen run txi the same machine as ail the otfier entries. 

2 . Choosing simplest siiubons ■ The progfam that gives the simplest enpression for each number. Priorities for defining simpdicily wiif be tie tollowing order + -'/*(}- 
R G 'tricks'. 'apprcHimaiiDna'. For example the following solutions lor tto number 1 are graded in order of simplidtyL 

1 ^ 44/44 
1 = t4*4)/{4*4) 

1 = t4/.4)/(4/.4j 
1 = t34/G(4-.l4.4j 

1 = TANI4444/4) cUsamd ae e "trick^* 

1 = 4* {4/44') clashed aa an "approriiaatloci'' 

3 Digit Fieidbdity' The progfam should be simple to change to make it work kv other digrb such as four'threes'. 

4. Range Bexftxlilv ■ The program ^ouM allow the range to be selected so as to fjotf sofutons horn SO -100 say. 

We ore unoblB to undertake any correspondBnee on the competition, txifwever we con supply 
a sheet avpondrngf on various aspects upon receipt of an SAf. 







TWO BASIC COMPILERS 


Reviewed by Mark Sealey 


INTRODUCTION 

The first Basic compiler for the Archimedes 
(version 1 of ABC from Dabs Press) was 
reviewed in RISC User Volume 2 issue 2, and 
readers are referred to that issue for an 
introduction to the role of compilers in general. 
After a long wait, ABC2 (which will be supplied 
free of charge to ail existing ABC owners) has 
been released together with a rival product. 
RiscBasic from Silicon Vision. 

This comparative review looks at the 
operation of each package based on the 
following five criteria: features; ease and 
flexibility of use; speed of compilation and 
execution; size and manageability of object code; 
documentation and presentation. 

in the interests of fairness, the two compilers 
have been tested using identicai source 
programs (with half from Dabs and half from 
Silicon Vision and other common benchmarks) 
plus a representative selection of published and 
unpublished Basic programs, typical of what any 
Archimedes user is likely to have to hand. 

RISCBASIC 

RiscBasic will run under Arthur 1.2 or RISC 
OS. though the version available at the time of 
review was not multi-tasking. By the time you 
read this, a fully multi-tasking version of RISC 
OS. which I have seen in pre-release form, 
should be available. This does not alter the 
RiscBasic compiler itself, but the environment in 
which the compiler runs, and all the current 
features of the compiler will remain the same. 

RiscBasic is then installed as an application 
on the menu bar. allowing Basic source files to 
be compiled by merely dragging the appropriate 
file icon onto the RiscBasic icon on the Desktop 
menu bar. However, it still appears to contain 
features, such as assuming directory pathnames, 
which are incompatible with Acorn’s RISC OS 
philosophy. This version will be sent out to all 
purchasers of RiscBasic who have registered 
with Silicon Vision. 

in use, the compiler can be Invoked with a 
single command, which may contain parameters 
(marked with a minus sign), and must also 
contain the name of the source code to be 
compiled, e.g.: 

RiscBasic -verbose Myprog 


RiscBasic can also be menu driven. In this 
case the user is presented with an uncluttered 
and highly legible screen with two windows. The 
first gives access to operating system commands 
and allows the user to run the compiler. The 
other window permits the selection of up to 17 
options, which fail into four broad groups 
affecting speed, comprehensiveness of 
compilation, the management of source and 
object code and error-checking. A >debug option, 
for instance, provides run-time error reporting. 
Clicking on any one of these options is exactly 
equivalent to adding it as a parameter if 
RiscBasic is called as a star command. 

The -turbo option will produce faster code if 
FOR-NEXT and REPEAT-UNTIL loops have 
single exits. The -width option allows the 
inclusion of the Basic keywords WIDTH and 
COUNT but produces slower code. Two options 
(-OSO and -nomap) produce code compatible 
with earlier versions of the Operating System 
than 1.2 while -single forces single instead of 
double precision floating point arithmetic. 

The -verbose, -stacktest, -nowarnings and 
-spool options assist in error-checking and 
tracking what is happening during compilation. 
Cross referencing is provided by -dump. There 
are also useful options to change the object 
filename and to drop you into the ARM Basic 
Editor at the errant line if a source error should 
occur. RISC OS no longer holds the Basic Editor 
in the Operating System ROMs so it must now 
be loaded first. However, on exiting from the 
editor, it is still necessary to restart the whole 
process. With both packages, this is easier and 
more elegant in the Desktop environment. 

Basic programs can be compiled into 
relocatable modules, including ones with multiple 
star commands, and RiscBasic comes with many 
useful demonstration files. As with ABC1 and 
ABC2, directives (up to 27 here) can be placed in 
source programs to control some of the compiler 
options just described - as well as operations like 
conditional compilation, constant and register 
variable allocation, and relocatable module 
functioning. 

Before looking at the performance of 
RiscBasic, one or two other features must be 
mentioned: rather than leaving sections of ARM 
Assembler code within a Basic program to be 
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assembled each time the object is e3<ecuted, 
Silicon Vision's product assembles the source 
code and links it, placing it at the end of the 
compiled code, but this does rule out conditional 
assembly, and the assembled code can no 
longer directly access the values of any Basic 
variables, which is a major limitation. 

Si Eicon Vision's quite pEausibEe point of view is 
that a Sasic compiEer is a tool to be used quickly 
and without fuss. Details contaEned in their 20- 
odd page documentation are more than 
adequate. Run RiscBasic; everything In BBC 
Basic V (apart from EVAL and the keywords 
associated with HIMEM and INSTALL), will 
compile. Let the compiler do the work. Needless 
to say, the compiled code will multi-task where 
appropriate. 

Silicon Vision has a commendable policy of 
continually updating its products. The addendum 
to the manual contains details of minor 
improvements, for example. In module handling. 
The buyer who has filled in the registration card 
may be assured, though, of getting major 
upgrades free of charge^ 

ABC2 

ABC1 was already a substantial product, and 
purchasers of the original receive a free upgrade 
and manual. This is Just 30 pages long and lists 
the improvements, fixes and changes, of which 
more later. As before, there is a separate 
examples disc, which contains the old programs 
as well as some new ones, with very honest 
notes as to what changes In speed are likely to 
result from compilation. An ASC 'extras' disc is 
expected to be released in the near future 
containing a cross-referencer, library-maker, and 
profiler and tracer. 

The compiler (v.2.29) will now also start from 
the Desktop, and runs as a non multi-tasking 
application under RISC OS, Files to be compiled 
are simply dragged onto the ABC Icon. 
Otherwise there is little difference in appearance 
or use. Because the library routines have been 
put into a module, this must be present for any 
object code to run. 

As before, code is given default names and 
can be compiled from disc or memory. The cycle 
of compiEe-debug-complie can become quite 
mechanical, and it is unfortunate that the 
filename windows In the Arthur version neither 
retain the current name nor allow one-key 

RISC User July/August 1989 


deletion, and that the same default file name 
('Object') is always given under RISC OS, 

It can still be run either from the command 
line or from its menu screen. As before, there are 
one or two user-unfriendly features: the default 
file-paths suggested during installation (which 
only works for Arthur 1.2 anyway) do not work 
with a single disc drive. On the other hand, 
commands for allocating heap and stack space 
have been improved. Like its rival, the Dabs 
compiler Es undergoing continual upgrading, and 
any major changes will be supplied to existing 
owners free of charge. 

Some of the additional features supported by 
ABC2 are: double and extended precision (19 
digits) floating point variables. These are 
explained most clearly in the documentation as is 
the use of the TYPE directive to control them. 
Local error handling has been vastly Improved. 
So has implementation of procedure RETURN 
parameters. The rules relating to procedure 
structure have been relaxed. There are also 
improvements in a number of areas associated 
with register and variable names. 

Some twenty odd known bugs have been 
fixed and these are well documented. Features 
still not supported (which are present in 
RiscBasic, though) are local arrays, multiple 
entry to FOR, REPEAT loops and some Basic 
keywords (COUNT and WIDTH, for Instance) in 
addition to the usual limitations with HIMEM, 
INSTALL and the like. 

COMPARATIVE TESTING 

By far the fairest way of comparing the two 
compilers in any quantitative way is to take a 
variety of benchmarks (supplied equally by the 
two publishers), run them under identical 
conditions, and compare the results side by side 
(bearing in mind the limitations of benchmarks as 
such). 

The following results emerged from averaging 
ten recorded timings, all in mode 0 with the 
background check for Escape enabled, using 
single precision floating point arithmetic so as 
most closely to resemble interpreted Basic V. All 
tests were run on a 41 On, loading both the 
compiler and source code from a floppy, not a 
hard disc. 

To start with, the same benchmarks as were 
published in the earlier review were used with 
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both compilers. The time (*n seconds^ is that 
taken to RUN each routine. 



Baste V 

ABC2 

RiscBasic 

Graf Screen 

1,46 

0.85 

0.71 

TextScreen 

2.19 

2.03 

1.99 

IntMath 

1.60 

0.29 

0.15 

Real Math 

0.22 

0.24 

0.25 

Triglog 

1.00 

2.76 

2.73 

Sieve 

4.52 

0,45 

0.06 

Fibonacci 

7.33 

1.15 

0.14 

Ackerman 

4.01 

0.27 

0.16 

Int Array 

1.29 

0.32 

0.05 

Real Array 

1.38 

1.15 

0.09 

St ring Array 

0.8S 

1.03 

0.11 


The following loop benchmarks {100.000 
iterations) were also run on each version: 


ForLoop 16.35 14.43 1.34 

RepaatLoop 9.94 1.43 0.09 

WhileLoop 7.68 1.42 0.11 

A representative selection of the (mostly 
graphics) files supplied by DABS: 

3D 1.02 1.01 1.01 

Bounce 10,06 2.08 2.02 

Fireworks 7.24 3.56 3.72 

and lastly three more substantial programs: 

Stringsort(l) 124.01 19.09 0,18 

Sort (2) 3.77 0.36 0.13 

Raytrace (3> 15.36 7.94 7.83 

(1) 200 6-character strings - bubble sort 

(2) 200 random Integers in two arrays 

(3) timings ir^ minutes 

The average resulting object code sizes and 
compilation times were similar tf anything 
RiscBasic's were better, despite having to 
contain all runtime routines (ABC uses an 
additional module). The two compilers were also 
well matched for accuracy. 

Yet, such benchmarks must not be taken Just 
at face value for a number of reasons. 

Benchmarks such as Grafscreen are limited by 
the speed of the operating system and test its 
speed more than the number-crunching 
capabilities of a compiler If all those benchmarks 
which do not rely heavily on the optimisation 
routines of the compiler (such as Sieve and 


Fibonacci) are excluded, the superiority of 
RiscBasic's speed is alt the more striking. 

In attempting to provide a fuller compiler, 
coping with all Basic V syntax, RiscBasic Incurs 
certain necessary overheads which you would 
expect at times to slow it down, tn fact - thanks to 
its more efficient library routines < this is not the 
case as is shown, for instance, by the bubble sort 
routine handling Basic's SWAP keyword. 

This also explains why the timings are 
Inconsistent in favouring first one then the other 
product, and makes the computation of 
meaningful averages so difficult. In the end. the 
choice is between the better of the two option 
routines within the compilers. RiscBasic's seems 
to have the edge. 

The benchmarks nevertheless indicate that 
code complied by RiscBasic does run faster than 
that by ABC2. and by nearly 60% on average. 
Whafs more. RiscBasic is over three times faster 
than interpreted Basic V. 

In most cases RiscBasic also compiles more 
quickly than ABC2 (on a range of programs, 
compile times varied from 7sec to 59sec with 
ABC2, 4sec to 24sec using RiscBasic). but It 
does take some extra 12 seconds to reload the 
RiscBasic compiler each time. The compiled 
object code requires substantially more memory 
than the original Basic program, and RiscBasic is 
more demanding in this respect than ABC2, For 
example, the same selection of programs 
ranging from 3K to 10K In size, compiled to 8K to 
21K with ABC2. but 23K to 37K with RiscBasic, 
However, remember that at run time, ABC loads 
a library module which wipes out its advantage 
here. 

You should also be prepared for some 
disappointment, when trying to compile your own 
Basic programs, arising from the occurrence of 
syntax unacceptable to the compiler. In practice, 
using a random selection of RISC User 
programs, this happened quite frequently, though 
more often with ABC2 than with RiscBasic. One 
small bug was located In the RiscBasic compiler 
(since corrected by Silicon Vision), but it is 
possible there are more. 

CONCLUSIONS 

Both products are very well presented, and 
well supported by their respective pubtishers. In 

Continued on page 59 
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Change Beeb screens into Archimedes screens with this utiiity from Dag Haakon Myrdai. 


When you consider that the Archimedes 
offers ail the screen modes provided by the 
original model B, one might naively think that a 
screen could be saved from the Beeb and 
loaded directly into the Archimedes. However, 
this is simply not possible because while the 
modes are compatible in terms of resolution 
and colour, the way the data is stored In 
screen memory is totally different. 

The accompanying program overcomes 
this barrier by taking a Beeb screen (in the 
form of a fiie), and converting it directly into an 
Archimedes screen, which can then be saved 
It desired. To use the program, type in the 
listing and save it When you run it, you are 
asked to enter the screen mod© (in the range 0 
to 7), the filename of the saved Beeb screen, 
and the filename with which to save the 
converted screen, (f this last name is omitted 
(by pressing Return aione) then the picture will 
be displayed but not saved. 


10 REM 

20 REM Program 


>BBCscrCON 
Screen Converter 


290 IF Model-? THEN 
300 VDU 30,23,16,11 
310 FOR F%-1 TO 1000 
320 G%-BGET#handle% 

330 IP G%02 THEN G%+-12e 
340 VDU Gl 
350 NEXT:VDU 30 
360 ELSE 

370 WHILE NOT EOF#handle% 

380 FOR Y%-0 TO 79 
390 FOR Xl-0 TO 7 
400 aadr%-2:%+(X%*e0)+off3et%+Y% 
410 ?addr%-FNGetInv{Model} 

420 NEXT:NEXT 

430 offsetl-off3et%+80*8 

440 ENDWHIIiE 

450 EKDIF 

460 CLOSE#handle% 

470 ON ERROR OFF 
480 ENDPROC 
480 I 

500 DEF FNGetInv{M%} 

SlO outl^-O: in%=BGET#handle% 

520 CASE M% OF 
530 WHEN 0,3,4,6 


30 

REM Version A1.0 

540 

IF(ini 

AND 

40 

REM Aiithor Dag Haakon Myrdal 

550 

IF(in% 

AND 

50 

REM RISC User July/Aug-ust 1989 

560 

IF(in% 

AND 

60 

REM Program Subject to Copyright 

570 

IF(ini 

AND 

70 


580 

IF(in% 

AND 

SO 

MODE 0:DIM B% 30:Z%-FNaddr 

590 

IF(ini 

AND 

90 

PRINT"BBC TO ARCHIE SCREEN FILE CO 

600 

IF(ini 

AND 

NVERTER"' ^ * 

610 

IF(ini 

AND 

100 

*CAT 

620 

“OUtI 


110 

PRINT 

630 

WHEN 1, 

.5 

^’^20 

iApUT"S creen- fa. 

640 

IF (ini 

AND 

130 

INPUT "Filename to convert :"file$' 

650 

lF(in% 

AND 

140 

INPUT"Filename of file to create o 

660 

IF(in% 

AND 

r <Return> :"arcfileS 

670 

IF (ini 

AND 

150 

MODE Model 

680 

IF(in% 

AND 

160 

pROCread(file S, Model } 

690 

IF(in% 

AND 

170 

IF arcfileSO"" THEN OSCLI"SCREENS 

700 

IF(ini 

AND 

AVE "+arcfileS 

710 

IF (ini 

AND 

180 

END 

720 

=out% 


190 


730 

WHEN 2 


200 

DEF FNaddr 

740 

IF(ini 

AND 

210 

!BI-148:B%!4=-1 

750 

IF(in% 

AND 

220 

SYS ■*OS_ReadVduVar iabl es",B%,B%+&l0 

760 

IF(in% 

AND 

230 

=B%!ilO 

770 

IF(ini 

AND 

240 


780 

IF(ini 

AND 

250 

DEF PROCread(file$iModel} 

790 

XP(in% 

AND 

260 

of fset%==0 

BOO 

IF(ini 

AND 

270 

handle%=OPENIN file$ 

810 

IF (ini 

AND 

280 

ON ERROR CLOSE#handle%:REPORT:END 

320 

-out% 
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BRAINSOFT'S MULTIPLE I/O PODULE 


Reviewed by Lee Calcraft 


The spec of Brainsoft's new podule for the 
Archimedes is tally impressive. On Just one 
half-width podule they have fitted: 

A mono video digitiser 
A stereo sound sampler 
An analogue port compatible with that on 
the BBC Micro 

A pair of RS 232 ports and three ROM 
sockets 

And all this costs just £107 +VAT 

The board is extremely well-made, and is 
easily fitted Into the machine, assuming that 
you already have a podule backplane. \t has 
three sockets at the rear, a BNC for video 
Input, a standard 15 pin D connector for audio 
and analogue irtpuft and a non-Acorn standard 
25 pin D Gonrtector for the RS 232 ports. The 
driver software for the podule is hold in a 32K 
ROM on the board itself, and this is 
automatically installed when the machine Is 
powered up. Unfortunately, although this 
provides a number of low level SWI calls, only 
four star commands are provided. 

The present version of the Muitl-Podule i/O 
board (version 1,2) as marketed by Brainsoft, 
does not in fact meet with the full specification 
above in the following respects: 

No disc-based software is provided to run 
any part of the podule. 

The ROM filing system is not Implemented, 
so that ROMs may not be used with this 
board. 

Sound sampling is Implemented in mono 
only. 

Only one of the two RS 232 ports is 
functional. 

In the near future Brain soft are hoping to 
release a new version of the board which will 
overcome these shortcomings. Upgrades will 
be available for a small sum, 

THE VIDEO DIGITISER 

Two star commands are provided for using 
the digitiser: 

* BVidSamp12 and 
*BVidSaiTipl5 

Both require a filename, and will orab a frame 
(in reality an amalgamation of 100 frames - 
see later), display It on the screen (mode 12 or 
mode 15 depending on the call) and save it to 
disc. It is a shame that there is no star 


command to perform the task without saving to 
disc - though you can achieve this easily with a 
pair of SYS (Of SWI) calls: 

SYS i408C0:SYS &40&C2 
for mode 12. and: 

SYS &408C0;SYS *40801 
for mode 15. 

In use J found Brainsofts podule software to 
be somewhat unstable. If you call for a frame to 
be grabbed, and no signal is present, instead of 
the "No video signal" message which you get 
from Watford's digitiser, the machine just 
hangs. You can1 even restore It with Ctrl-Break. 
Ctrl-Reset will get you out but after this the 
poduie's star commands and SWIs cease to be 
recognised. Only by switching off the computer 
can you make things work again. I found that 
the software hung up on other occasions too. If 
you tell it to perform a mode 15 frame-grab, but 
the computer is in mode 12, it wilt also hang up. 
and so on. 



Brainsoft s mulfiple I/O podule 


The picture quality of the grabbed image 
was also most disappointing. In order to keep 
the cost of the unit to a minimum, Brainsoft 
have used a relatively slow D/A (digital to 
analogue) converter to scan the video image - 
in fact the same converter is used for the video 
digitiser, the sound sampler and the analogue 
port, so they can't be used simultaneously. 
There is also no RAM on the board (Watford's 
digitiser has 160K of on-board RAM for fast 
frame storage). 
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BRAINSOFTS MULTIPLE I/O PODULE 


Because it is a reiativety slow device, the 
A/D is not capable of scanning a single video 
frame in real time. It actually scans around 100 
frames to build up its image. This takes some 
two seconds or so, and for the very reasonable 
price of the board, two seconds seems quite 
acceptable. But there is a problem Inherent in 
this approach which may be insoluble. In all 
tests which I carried out, both with a VHS-C 
Video camera, and with a good quality video 
recorder (used in freeze-frame mode to hait 
the picture for 2 seconds), all images were 
very noisy. This manifested itself as distortion 
on all horizontal lines of the picture. In spite of 
advice from Brainsoft, t was not able to 
overcome this. 


THE ANALOGUE PORT 


The Brainsoft analogue port simulates that 
on the BBC Micro, or on Acorn's Archimedes 
I/O podule. You can access it using Basic's 
ADVAL function, so that the board's dearth of 
star commands is no drawback here. In tests, I 
found that although the port caused values to 
be returned by ADVAL, its output was far from 
stable. A short program to print out the voltage 
at the analogue input at intervals of 0.1 
seconds gave the following sequence of of 
readings with a stable resistive source: 

14592, 15872, 15616, 14336 
and at the tow end. ttuctuations were even 


greater: 

512, 256, 2560, 2560, 512 
and SO on. The same jnput applied to the 
analogue port of a SBC Master gavfe constant 
and unchanging values. 


SOUND SAMPLER! 






The podule's sound sampler will digitise 
audio signals input at the A/D connector. Two 
star commands are provided for this purpose: 
*B3ound3ainp 

wrongly given in the manual as *SoundSamp, 
and 


^BSoundPlay 

confusingly given in the manual as 
*PlaySound. 


When you get the name right, both 
commands take a filename as parameter and 
store a 4 second sample to disc or replay it, 
respectively. It is a shame that there are no 
star commands for taking samples of other 
lengths or tor replaying them without saving 


them to disc. There is also a problem with the 
RMA. The sample is built up in the RMA. and 
although the manual doesn't explain this, you 
need to configure some 250K for this purpose. 
What is really annoying is that the RMA is not 
cleared afterwards* so that if you repeat the 
command ‘BSoundSamp, it will fail with a No 
room in RMA message. 

Jf you want to take samples of different 
lengths* you can use one of the SYS calls 
provided, though I failed to get these to behave 
properly. During sampling the only way to 
escape Is to use Ctrl-Reset (Ctrl-Break would 
not work), and this again caused the computer 
to stop recognising any of the podule 
commands. It was as if the Arc had had 
enough of this podule, and I must admit to 
feeling the same way about it myself. 

As to the quality of the sampled sound 
itself, this was seriously impaired by a high 
level of white noise, which was itself distorted. 

CONCLUSION 

I would like to think that the board reviewed 
here was faulty* and that there is nothing 
fundamentally wrong with the product Itself. 
However, by no means ail of the shortcomings 
of this product can be put at the door of a single 
board fault. The system software is obviously in 
need of an overhaul, and I have my doubts 
about the feasibility of scanning a video frame 
by sampling from 100 frames using a relatively 
slow A/D device. In such a set-up, e^ch frame 
must be identical to the last, but more 
importantly the timing of each mdividuaf digital 
^"'''Sample (l.e. the timing applied to the sample- 
and-hoid device) will be absolutely crucial if 
image distortion is to be avoided. 

However. 8 rain soft's attempt to provide a 
useful cluster of functions on a singte board 
and at a very reasonable end-user price is 
laudable. If they can supply us with a new 
version with these problems fixed, we will 
report back. 


m 


Product 

Muttipie I/O Podule 

Supplier 

Broin^ft Ltd 


106 Boker Street, 


London WIM IDF. 


T©|.0t '4B6 0321 

Price 

£123.05 inc. VAT + £3 p&p 


RISC User July/August 1989 


41 













I 


EXPANSION CARDS 
FOR THE 

ACORN ARCHIMEDES 
COMPUTER SYSTEM 


IEEE488 INTERFACE a full implementation 
of the standard for automatic test and 
measurement systems 

16 BIT PARALLEL I/O two 16 bit input or 
output ports with handshake lines for digital 
control applications 

DUAL RS423 SERIAL INTERFACE for 

communicating with two additional RS423 or 
RS232 devices eg printers, plotters, 
instruments, etc 

12 BIT ANALOGUE I/O in development 

All the above high performance expansion cards are 
supplied with high level software for ease of use and a 
comprehensive user guide. 

Take advantage of Intelligent Interfaces' expertise and 
purchase a complete Archimedes Computer System. 

Officially appointed Acorn Scientific Dealer. 

Intelligent Interfaces Ltd 

43b Wood Street 
Stratford-upon-Avon 
Warwickshire 
* CV37.6JQ 
Tel; 0789 415875 
Telex: 312242 MIDTLX G 











A Basic Program Cross*Referencer 


Keep your Basic programs under control with this magazine disc utility 
from Barry Christie. 

The output produced by the cross- 
ref ere nee r is split into eight categories: 


Because of space con sir am rs. the cross re fere nee r 
program is included on the magazine disc only 


The LVAR command fn Basic V can be very 
Ltsefui in debugging a program, it wiii ilst alJ the 
variabies defined during the execution of a 
program, aiong with the names of any 
function^ and procedures cailed, and any 
iibraries loaded. However, LVAR is totally 
dynamic - a variabie is only iisted it it has 
actually been defined during 
execution. Another debugging tool is 
LIST IR This will list all the lines 
containing the specified keyword, 
variable, etc. For example: 

LIST IF PRINT 

While LVAR and LIST IF can prove 
invaluable, it is sometimes very useful 
to be able to list out in one go all the 
variables, procedures etc., together 
with the numbers of all the lines 
referencing them. This is exactly what 
the cross-referencer presented here 
does, 

USING THE CROSS-REFERENCER 

The cross-referencer takes the 
form of a relocatable module, and this 
is supplied 'ready to load' on the 
monthly disc. The disc menu gives full 
instructions for loading the module. 

Also contained on .the disc is the source code^ 
tor the module, and this Is fully documented 
making it easy to follow* 

Once loaded, the cross-referencer module 
offers two commands: 

*XREFD and 

*XREFP 

These two commands are basically the same, 
except that the first displays the output on the 
screen, while the seconds prints the results as 
well. Used with no parameters, the current 
Basic program is cross-referenced, while 
adding an optional filename will load the 
named program and then cross-reference it. 
For example: 

*XREFP BasieProg 
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Procedures 
Functions 
Real variables 
Real arrays 
Integer variables 
Integer arrays 
String variables 
String arrays 


im iM, 15W, im. I Ml. 

im, IMI. iwi. lUl, IMI, 

im. US*. IS*i. 1*11. l*5i. 

»■■«) 


»i Uitin *f Uiittw frfitJ 


itretO 

JM. E41I. HU, HZI liZi. m. 1HI LMI. lS?t 

m: an. m IMI. iiu. dn. 


Llltiq K SHiH Ivilfein - Titil A«4tir IhH* H prtrifi * 



Cross-referencer in action 

h. 

L^For each category, the total number of objects 
of that type is printed, followed by the name of 
each object and the numbers of the lines cn 
which it occurs. The diagram shows an 
example of the display* During the process. 
Escape can be used to abort the operation. 
Pressing and holding Space will freeze the 
display until the key is released. 

Obviously, the cross-referencer in itself 
cannot debug a program. However, armed with 
the ilst of occurrences, It should be relatively 
straightforward to pick out possible 'problem 
lines'. 

For detaiis of ordering the magazine disc, 
refer to the inside back coven [jp 
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ARCHIMEDES SOFTWARE 


HOME ACCOUNTS 

£49.95 



Keep your home or club finances In order. 
Full control of multiple bonk accounts 
including credit cards and building 
societies Budgeting facility to assist 
cashflow prediction. Graphs of 
budgets and expenditure. Caters 
for standing orders, transfers, 
statement recanciliation, etc. 
(Multi-tasking if using 
RISC OS.) 


ANCESTRY 

£79.95 



ATELIER 

£99.95 


The ultimate in computerised genealogy! 
for use in families or pedigree animals. 
Use added card index for extra data or 
photos of individuals. Demo file 
contains illustrated Royal Family 
tree. Vertical or horizontal 
printout of family tree. 
For home, hobby or 
educational use. 

(RISC OS compatible) 


Prices 
inclusive 
of VAT 



Professional quality art package. Probably the most 
sophisticated sprite editor available. Animation of image 
sequences with Quantel-style graphic effects. Anti-alias 
squashing, rotation of areas into any quadrangle, and sprite and 
brush patterning. Further features allow TV-style techniques to 
even wrap a picture around a 3D surface. 
(Multi-tasking If using RISC OS.) (To be released soon). 


Access & 
Barclaycard 
accepted 


69 SIDWIU STREET, iXETER.EX4 6PH T»l: (0392) 437756 Fax:(0392)421762 















Graham Vertch produces some very smart effects by progrommirrg the VI DC Chip 



This program provides a set of procedures 
which are useful for creating special effects in 
any mode from 0 to 17 by reprogramming the 
Video Controller chip (VIOC). Although the 
VIDC is a complex device, the procedures 
listed here should make it easy to create two 
particular types of effect. 


Firstly, you can 
move the outer edge 
of the border around 
the screen to any 
specified rectangle. If 
the border is moved 
to within the display 
area, it forms a 
movable window on 
the display. This is 
the first part of the 
demonstration 
supplied. Alterna¬ 
tively, you can "wrap 
up" the display area 
so that it appears in 
any specified rect¬ 
angle on the screen, 
with border round about (this is the second 
part of the demonstration). 


put the new co-ordinates into the array scrc%. 
which is primarily for the use of PROCscrto. 
The parameters for PROCscr are: 

PROCscr (left# bottom, right r top, select, set) 

The first four give the co-ordinates in normal 
graphics units of the new rectangle. Left and 
fop refer to a pixel just inside the top-lett corner 
of the rectangle, right 
and bottom to a pixel 
just outside the 
bottom-right corner. 
Co-ordinates are 
measured, as usual, 
from the bottom-left 
corner of the normal 
display area. 

In most modes, the 
horizontal co-ordinates 
will be numbered from 
0 to 1279 tor the 
default area, but in 
modes 16 and 17, as 
there are 1056 pixels 
horizontally, the 
numbering is from 0 to 
1055 for the default area. With negative co¬ 
ordinates, or co-ordinates greater than the 
usual maximum, the ’screen' can be expanded. 


The program in operation 


To use the facitities provided by this 
program in your own programs, you must 
include pROCassembl#,-PROGscrinit and 
PROCscr. You will probably also wish to 
include PROCscrto. 

I Si >: ' 

Before using PROCscr or PROCscrto, you 
must first call PROCassemble to assemble the 
machine code routine which writes to the 
VIDC. then PROCscrinit which reads 
information about the current mode and sets 
up parameters in the machine code. This 
procedure should therefore be called with the 
screen mode which you intend to use already 
selected. It also sets up the global variables 
scrc% and pixshift% which are used by 
PROCscr and PROCscrto. Therefore you 
should not use these names for variables you 
define in the rest of the program. 

PROCscr forms the basis of all the other 
procedures and moves either the border or 
display to within a given rectangle. It can also 


One additional point is that the number of 
bits in a line of the display area (i.e. the 
number of pixels multiplied by the"t>its per 
pixel) must be a multiple of 16 to achieve a 
Unsteady display. 

The fifth parameter, select, should be zero 
if you wish to move the outer edge of the 
border, and one if you wish to move the display 
area. The final parameter, set. should be 
TRUE if you wish to Store the new co-ordinates 
in scrG%. FALSE if you do not. This should 
normally be TRUE, so that PROCscrto can 
correctly calculate the steps It requires to take. 
PROCscrto itself sets this parameter to FALSE 
as it performs its own updating. 

PROCscrto will smoothly move the current 
border or display rectangle to a new one. In a 
specified number of steps. For this it requires 
correct values in the array 5cr€%. It would 
therefore be usual to make a call to PROCscr, 
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with set^TRUE before using PROCscrto. 
PROCscrto takes very similar parameters to 
PROCscr. They are: 

PROCscrto (left^bottomi right, top, select, steps) 
The first five parameters have the same 
function as in PROCscc The last specifies the 
number of steps required to move from the oEd 
to the new rectangle. The steps are made 
once every frame (i.e. fifty per second) by use 
of the WAIT command. 

Three procedures are included to 
demonstrate the use of PROCscr and 
PROCscrto. These are PROCswap, which 
contracts the screen to any point, then swaps 
to a different bank before expanding the 
screen, and PROCbounce and PROCstretch 
which provide two possible routines for 
swapping between screens. 

The best way to understand how to create 
your own effects is to modify these procedures. 
If you should lose the screen display, escape 
from the program, then type a mode change 
command: if this fails, which is unlikely, 
pressing Reset will always work. Alternatively, 
the final procedure in the demonstration shows 
one method of resetting the screen to a 
reasonable condition. 

With these procedures, a large number of 
effects are available: the only limit is your own 
Imagination in their application. 
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REM Program 
REM Version 
REM Author 
REM RISC User 
REM Program 


>VidcProgll 
VIDC Prograiraner 
A 0.11 

Graham Veitch 
JuLy/Aug 1989 
Subject to Copyright 


MODE 12iOFF 

PROCassemble 

PROCscrinit 

ON ERROR PROCerror:END 

PROCscreen 

REPEAT 

*Fx 112 1 

*rx 113 1 

for bord%=^0 TO 1 / 

PROCscr(-96,-64,1376,1088,0,TRUE) 
PROCscr(0,0,1280,1024,1,TRUE) 

FOR vpos%-0 TO 1 
FOR hpO3l“0 TO 1 


210 PROCswitchl (hposi*128 0,vpos% *1023, 
{vpo3%+hpos%) MOD 2+1) 

220 REPEAT UNTIL INKEY(150) 

230 next hpoa% 

240 IF vposl-O THEN PROCbounce(1} ELSE 
PROCstretch(2) 

250 REPEAT UNTIL INIffiY{150) 

260 NEXT vpos% 

270 NEXT bord% 

280 UNTIL FALSE 
290 END 
300 : 

310 DEF PROCassemble 
320 LOCAL code%,opt% 

330 DIM code! &7F,3crc%(3,1) 

340 FOR opt%-0 TO 3 STEP 3 
350 F%=cocie% 

360 [ 

370 OPT opt% 

380 .screensizer 

390 SWI 22 

400 MOVNV R0,R0 

410 MOV R7,1603400000 

420 TEQ R4, 10 

430 LDREQ R5,hbstart 

440 LDRNE R5,hsstai:t 

450 LDR R6,vstart 

460 ADD RO,R5,R0,ASR #1 

470 ADD R2,R5,R2,ASR il 

480 ADD R1,R6,R1 

490 ADD R3,R6,R3 

500 ADD RO,RO,#688000000 

510 ADD R1,R1,#&B4000000 

520 ADD R2,R2,#694000000 

530 ADD R3,R3,#6A8000000 

540 ADD R0,RO,R4:SUB Rl,El,R4 

550 SUB E2,R2,R4:ADD R3,R3,R4 

560 STHIA R7,{R0-R3) 

570 TEQP PC,IO:MOVKV R0,RO 

580 MOVS PC,R14 

590 .hbstart EQUD 0 

600 .hsstert EQUD 0 

610 .vstart EQUD *98000 

620 J 

630 NEXT 

640 ENDPROC 

650 : 

660 DEF PROCscrinit 

670 LOCAL bytes%,pix%,pixbits%,hstart% 

,vstart% 

680 SYS 53,mode, 6 TO ,,bytes% 

690 SYS 53,MODE,9 TO ,,pixbits% 

700 pix%=bytes%*8»>pixblts% 

710 CASE pix% OF 

720 WHEN 1056:hstart%^6A6:pixshift%-0 
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730 WHEN 640 ■hstart%=^c84 rpix3hlft%=l 
740 WHEN 320:hstart%=£42rpixshift%=2 
750 WHEN 160:hstart%=421tpix3hift%=3 
760 ENDCASE 

770 [hbstart-hstart%«l4 

7B0 CASE pixbits% OF 

790 WHEN 0: thsstart«hstai:t%-9«14 

800 WHEN 1: !hsstart-hstart%-5«l4 

310 WHEN 2 !hsstart“hstart%-3«14 

820 WHEN 3^ !hsstart^hstart%^2«14 

830 ENDCASE 

840 ENDHROC 

350 I 

860 DEF PROCacreen 

370 local loop%,char%i x%, y% 

830 VDO 19,O,24,SFO,^80,fi80 

390 *Fx 112 1 

900 *Fx 113 1 

910 COLOUR 0,4 

920 CLS 

930 *EieXp 

94 0 *Help FileCoitimands 
950 *Fx 112 2 
960 *Fx 113 2 
970 CLS 

980 MOVE RND{1280}-1,RND(1024)-1 
990 FOR loop%-0 TO 31 
1000 GCOL 3,RNDn) 

1010 PLOT 85,RND{1280)-1,RND(1024)-1 
1020 NEXT 
1030 EWDPROC 
1040 : 

1050 DEF PROCboiince (scr%) 

1060 PROCscr(0,0,1280,1024,bord%,TRUE) 
1070 P^Cscrto{0,992,32,1024,boi:dl,32) 
1080 PROCscrto (1248,992,1280,1024,bord%. 
,32) ' .. .. 

1090 PROCscrto(0,0,32,32ffe6rdl,32) 

1100 PROCscrto (124 8, 0,1280,32,bord%, 32) 
1110 SYS 6,ll2,scrl 
1120 SYS 6,ll3,scr% 

1130 PROCscrto(0,0,1280,1024,bord%,32) 
1140 ENDPROC 
1150 : 

1160 DEF PROGswitchl(x%,y%,acr%) 

1170 PROCscr(0,0,1280,1024,bord%,TRUE) 
1180 PR0Cscrto(x%,y%,x%+4,y%+4,bord%, 32 

) 

1190 SYS 6,ll2,acr% 

1200 SYS 6,113,scr% 

1210 PROCscrto(0,0,1280,1024,bord%,32) 
1220 ENDPROC 
1230 : 

1240 DEF PROCstretch(sci:%) 

1250 PROCscrto, 0 ,1280,1024,bordi,TRUE) 
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1260 PROCscrto(0,1008,16,I024,bord%,32) 
1270 PROCscrto(0,1008,320,1024,bord%, 8) 
1280 PROCscrto(960,1008,1280,1024,bord% 
,24) 

1290 PROCscrto(1264,1008,1280,1024,bord 

%, 8 ) 

1300 PROCscrto(1264,768,1280,1024,bord% 

, 8 ) 

1310 PROCscrto(1264,0,1280,256,bord%, 24 

) 

1320 PROCscrto(1264,0,1280,16,bord^,8) 
1330 SYS 6,ll2,scr% 

1340 SYS 6,113,3cr% 

1350 PROCscrto(0,0,1280,1024,bord%,32) 
1360 ENDPROC 
1370 i 

1380 DEF PROCsor(A%,B%,C%,D%,E%,set!) 

1390 IF B%>-D% THEN D%=B%+4 
1400 IF set% THEN 

1410 scrc%(0,E%)^A%;scrc%(I,E%)=B% 

1420 scrc%(2,E%)"C%:scrc%(3,E%)-D% 

1430 ENDIF 

1440 A%-Al«14-pixshiftl:B%-(l023-B%) D 
IV 4«14 

14 SO C%-C%«14™pixshift%:D%=(lD23-D%) D 
IV 4«14 
1460 E%-E%«26 
1470 CALL screensizer 
1480 ENDPROC 
1490 : 

1500 DEF PROCscrto(1%,b%,r%,t%,E%,step% 

) 

1510 LOCAL Is,rs,ts,bs,loop% 

1520 ls-(l%-scrc%{0,E%))/step% 

1530 bs=(b%-scrc% (1 ,E%))/step% ''' 

1540 rs=(r%-scrc%{2,E%))/step% * 

1550 tS"(t%-scrc%(3,E%))/step% 

1560 FOR loop%-l TO step% 

1570 l%=3crc%(0,E%}+loop%*ls 
1580 b%=scrc%(1,E%)+loop%*bs 
1590 r%=scrc%(2,E%)+ioopl*rs 
1600 t%^scrc%(3,E%)+loop%*ts 
1610 PROCscr(l%,b%,r%,t%,E%,FALSE) 

1620 WAIT 
1630 NEXT 

1640 $crc%(0,E%)=l%JScrc%{l,E%)-b% 

1650 scrc%(2,E%)=r%: 3 crc%(3,E%)=t% 

1660 ENDPROC 
1670 : 

1680 DEF PROCcrror 

1690 PROCscr(-96,-64,1376,1088,0,TRUE) 
1700 PROCscr(0,0,1280,1024,1,TRUE) 

1710 ON:REPORT 

1720 PRINT at line ^^’ERL 

1730 ENDPROC [3!1 
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ARCHIMEDES SOFTWARE 

Disc 1 EMACS. Good editor with language. Now includes full C source code. 
Disc 2 MiaoSpell. 43,000 word spelling checker (dr EMACS or standalone use. 
Disc 4 XLISP. Object oriented version of LISP with C source. 

Disc S C Toolkit. Over 20 programs for C programmers, grep, make, awrtt... 

Disc 6 Kermit. Archimedes, BBC and MSDOS versions of file transfer prog. 

Disc 7 WIMP Chess. Good standard Wimp chess game with tots of features. 
Disc 0 Cross Star. Wimp based aossword solver with huge dictionary. 

Disc 10 More C Tools, yaoc and lex with examples and C source, diff, ctags... 
Disc 11 Little SmallTalk. Original object oriented language with C source. 

Disc 14 Gnu Tools #i. High quality tools with C source, egrep, sed, avi/k and diff. 
Disc 15 Clip Art #1. Over 50 rtctures to paste into DTP/ArcDraw etc. files. 

Disc 16 Spark. Super RISC OS WIMP based multitasking Hie archiver. Also 
archives directories. Compatible with PC arc and PKARC files. 

Disc 17 U Tools. Tar, Compress, Less and Sort with C source code. UNIX Tar 
archiver extended for the Archimedes with compress file squasher. 

E€u:h (Use is £5.99 me. Buy four claim one free! 

David Pilling, P.O. Box 22, Thornton Cleveleys, Blackpool. FY5 1LR. 

Fw Air Mail d^Uv^ on ovortoas ordors. More detoik aeoiiatle on request. 


EUCORN! 

• EUCORNisa revotutionary new generation of musical jnstrument 

• With it one can perform prescribed pieces of music like a musician. 

• Real time control of musical interpretation during performance. 

• Runs on Archimedes 310, with ampfifier & speakers: printer desirable. 

• Disk contains performance program (both BASIC and ABC compiled versions) a music 
input program, a repertoire of classical pieces (over 2 hours playing time) and detailed 
70+ page User Guide as a print file. 

• Customers welcome to contact author at any time. 

• There is NO CHARGE for EUCORN: after receipt testing, it is hoped that customers 
will donate a suitable sum directly to any recognised charity. 

• To obtain the package, please send a 1 st class UK postage stamp, a self-addressed 
{UK addresses ONLY) envelope & a SOOk formatted 3.5” disk. Software will be copied 
onto your disk & posted b^k to you the same day. 

STELLAR ENTERPRISE 

(Ronald Alpiar), 

84 Dudsbury Road, Ferndown, Wlmborne, Dorset BH22 8RG. 

Telephone Bouinemouth (0202) 575234. 















ARC PROCEDURE LIBRARY 


by Lee Calcroft 

This monfh s Library features o generaJ purpose input function. 


The standard INPUT function provided by 
Basic is easy to use, but has a number of 
limitations. For example, the limit on user input 
is 238 characters, so if the user holds down a 
key, even the best laid out screen wilf be 
spoiled. There is also no restriction on which 
keyboard characters are accepted, the mouse 
is compfetely ignored, and so on. 


IHPUT FUMCTIOH TEST 
Hew filen^n^ please TEST 


Ualid input: TEST 


The function supplied here solves these 
probiems, and a few more besides. It takes six 
parameters, as you can see from the definition. 
The first is the maximum length of string that the 
user may supply. The second and third define 
the range of ASCII characters that the routine 
will accept. The fourth is a string containing any 
characters within the above range which should 
be ignored (use if there are none), fifth 
parameter is the so-calied "palnT character 
which will mark the position of each character of 
the input string before it is entered (e.g. will 
cause a row of dashes to be used, or ** ” will 
give a blank space). Finally the sixth parameter 
indicates whether the input should be echoed to 
the screen (TRUE) or not (FALSE), You might 
set this to FALSE on a password input to avoid 
the password appearing on the screen. 

The function returns the string input by the 
user. The user must terminate his input either 
by pressing the Return key. or the Select 
button. If on the other hand he uses the Menu 
or Adjust buttons at any time, this will 
immediately cancel his input, and to signify this 
the string returned by the function will be the 
single character CHR$127 (ASCII detete). 

If the user terminates the string using the 
mouse, the variable exitchoic 0 % will be set to 
the mouse button number. This enables you to 
distinguish between cancelling with the Menu 
and the Adjust button, which may be important 
for some applications. 

If you run the program you can see the 
input function in use. In the example the length 


of input Is restricted to 10 characters (as it 
might be it used for inputting filenames), and 
certain characters. Including brackets, colons 
and so on. are excluded. 

You will see that the value returned by the 
function (line 130) Is checked for validity before 
the result is used, Aiso the variable 
exitchoice% is checked if the user cancelled 
his input. If he used Adjust then a further input 
is sought, while if he cancelled with the Menu 
button, the program terminates, 

Finally, although the function is designed 
primarily for the input of text strings, it Is 
relativeEy easy to customise. To make it yield a 
numeric result, use: 

res^jiit=VAL (FN input (len%, ^5,69/V: ;<^>?§ABC 
D","-^,TRUE)) 

For 4-dsgif hex input, use: 
result=EVAL t"&"+FNinput (4, 48, 70, ” :; 
"-”,TRUEM 

10 REM >Rrc4-l’-3 

20 REM Procedure/Function Library 
30 REM Version A 0.3 
40 REM Author Lee Calcraft 
50 REM RISC User July/Aug 1989 
60 REM Copyright Lee Calcraft 
70 : 

80 MODE12 

90 PRINTTAB{1D,7J FUNCTION TEST 

II 

100 REPEAT 

110 PRINTTAB{0,lOr’New filename please 

II » 

120 resu It $-FNinput (10,48,122, 

TRUE) 

130 IF resultS<>CHR$l27 THEN 
140 PRINT’^Valid input: results;SPC( 

10 ) 

150 ELSE VDU7 : PRINT *’’Cancelled entry^; 

spcao; 

I5'j END IF 

170 UNTIL exitchoice%=2 
130 END 

190 :=====——=-—™=™========== 

200 REM Input function ^ Returns CHRS 
127 if input invalid 

210 REM exitchoice% holds mouse button 
at exit 
220 ; 
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230 DEFFNinputlochr%,hichr%,excl 
ude $ f paint $, e ch o%} 

240 LOCAL n%,paint%,lnputok%, quitinput 

% 

250 quitinput%-FALSE:inputokI-FALSE 
260 input$="":n%-0:exitchoice%-0 
210 paint%-ASC{paint$) 

280 PRINT STRING$(len%,paint$K‘STRING$ 
Uen%,CHR$8); 

290 REPEAT 

300 PROCmousewait(-24) 

310 IF z%>0 THEN 

320 IF z%=4 THEN inputok%-TROE ELSE qu 
itinput%-TRUE 
330 ELSE 

340 CASE TRUE OF 
350 WHEN w%-13rinputok%-TRUE 
360 WHEN w%-l2l AND n%>0:n%—1 
370 inputS-LEFTS(input$,n%):VDU&^paint 
%,8 

380 WHEN w%>-lochr% AND w%<-hichr% AND 
INSTR(excludes,CHRSw%)-0 
390 IF n%>-ien% THEN 
400 VDU7 

410 ELSE iriput$t-CHRS{w%) :n%+-I 
420 IF echo! THEN VDUw% ELSE VDU9 
430 ENDIF 
440 ENDCASE 


450 ENDIF 

460 UNTIL quitinput% OR inputok% 

470 IF quitinput% THEN inputS-CHRS127 
480 exitchoice%-z%:PRINT: 

490 PROCmousewait(0) 

500 -inputs 

520 DEFP ROCmuuaewait(n) 

530 REN 0-7: Wait for this mouse state 

540 REM negr Wait for zero first 

550 REM 8: Wait for any button 

560 REM 16: Wait for keypress 

570 LOCAL anypress,inkey,m 
580 *FX21,9 

590 IF n<0 THEN PROCmousewait(0):n-ABS 
(nj 

600 IF (n AND 16)>0 THEN inkey=TRUE:*F 
X21 

610 IP (n AND S)>0 THEN anypress^TRUE 
620 m-n AND 7:w%—1 
630 REPEAT 

640 MOUSE x%,y%,z% 

650 IF inkey THEN w%-INKEY(0) 

660 UNTIL (z%-m AND NOT (n>7 AND m-0)} 
OR (anypress AND Jz%>0)) OR (inkey AND 
{w%>-l)) 

670 ENDPROC rrr 




VISUAL 

EFFECTS 


ARCHEFFECT Is an easy to use Image nrKinlpulatlon packoge. By the use ot simple 
•Command! yog wilt be able to quickly produce spectaculor visual effects, similar to those 
seen on TV, It also allows for the easy use of fonts. 

The module has been specifically designed for use In the high resolution graphics modes to 
take full Qdvantoge of the potential of the Archimedes/ 

In addition to the many Image manipulation commands the module provides an alternative 
method of using the powerful font manager provided on the Archimedes, bypassing the 
complex 'SYS' commands previously necessary. 

ARCHEFFECT - £24.95 inc VAT and p&p 

----^ 

Pfease send me . copies of Archeffect at £24.95 each. 

t enclose a cheese or postal order for the sum of £. . 

Please moke cheques or postal orders payable to FX. 

FX, 207 South Avenue, Southend-on-Seo, Essex SS2 4HT. 

(For rurther details send SAE) 
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BASIC SQUEEZE 


When the Archimedes was first launched, 
with half a mega-byte of RAM or more, it 
looked as if there would never be any need to 
squeeze Basic programs to fit into the 
machine. But the Arc is also a voracious eater 
of BAM, and with screen, sprite and font space 
allocated, let alone RAM discs, you can soon 
run out of memory. And if you are trying to 
multi-task with less than 2 Mbytes of RAM» 
things feel distinctly tight. So a facility to 
squeeze Basic programs could be an attractive 
proposition. 

The program listed here will do just that It 
has two options: it will remove REMs and/or 
spaces- from any program. The program Is 
itself written in Basic to make it easier to follow* 
and to customise. This makes it a little slow on 
very large programs* but it Is not likely that you 
will use it very frequently. 

To use the program, type it in carefully, and 
save it to disc. Next create a short program as 
follows: 

10*KEY1 PAGE=TQP + ^i200lM CHAIN"Squeeze” i M 
20*KEY2 PAGE=£8FOO|MOLD|M 
and save this under the name "K" for keys. 
Type *K to set up the function keys, then load 
the program that you wish to compact (e.g. 
type LOAD"program^0- 

If you now press function key FI* the 
Squeeze program will be loaded into memory 
above the target program, and run. it will 
prompt you to select REMs and/or spaces as 
targets for removal, and the program will 
proceed, indicating its progress as it goes. 
When it has finished, you will be able to list, 
run or save the compressed program in the 
normal way. 

Function key F2 is only included for 
debugging purposes. If the Squeeze program 
stops with an error before finishing (as it would 
if the Squeeze program were mis-typed), 
pressing function key F2 will allow you to list 
the target program; though fn this case it is 
quite likely that you would get a Bad program 
error with the target program. Inddentally, you 
should avoid pressing Escape while the 
compressor is at work for the same reason - 
the target program will be corrupted. 
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REMS 

If you have opted not to remove REM lines, 
the program will leave REM lines exactly as it 
finds them* since removing spaces from such 
lines would not necessarily be helpful. When 
REM lines are removed, only those lines which 
begin with a REM (optionally preceded by 
spaces and/or colons) will be affected. When 
the REM option is set. the program generates 
a table of line number references (e.g. GOTO 
100 etc.}* and REMs which are painted to by 
such lines are not removed (though a message 
is given in such cases). 

SPACES ^ 

When removing spaces, the program will of 
course avoid removing spaces from anything 
between quotation marks. It will also leave in 
the vital space between statements such as; 

iFflag b%=THUE 

and will compress DATA statements without the 
loss of significant spaces, Ber^use the program 
removes alE redundant spaces from the target 
program* you need to be very careful how you 
treat a compressed program. You will not be 
able to edit if in the normal way once spaces 
have been removed - either by using cursor 
editing, or an editor such as Twin or the Sasic 
Editor* and for that reason it is advisable always 
to keep an uncompressed copy of your work. 

HOW IT WORKS 

Essentially the program works by scanning 
through a Basic program in memory, and 
shortening it where appropriate. To do this it 
must take careful account of the way in which 
Basic programs are stored. 

By way of illustration, consider the following 
short program: 

10 REM A 

2 0 REM 

This would be stored in RAM as the following 
hex sequence: 

OD 

00 OA 08 20 F4 20 41 OD 

00 14 06 20 F4 OD 

FF 

The program starts with byte &0D (13 decimal) 
- a carriage return. This is followed by the 
number of the first line, given as a 16 bit 
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number (high byte first), then a byte giving the 
length of the line {&08 in the first line). There 
then follows a sequence giving the contents of 
the line itself, with most keywords being 
represented as one or two token bytes. In this 
case &20 (a space) followed by 8F4 (the token 
for REM) plus &20 (a space) and &41 (ASCII A). 
Finally, a carriage return (&0D) signifies the 
end of the first line. This coding continues until 
the end of the program is reached, signified by 
&0D &FR 

In the present program, two complete 
scans of the target are made (unless "spaces 
only" is selected), the first scan ts carried out 
by PROCIInerefs. Here the obiect is to build up 
a table of line references (GOTO etc.) which 
will later be checked before REM lines are 
removed. 

The main program scan is carried out by 
P ROC scan. This picks up the length of each 
program line, storing it in the variable len%. 
The line is then checked to see if It is a REM 
line (does FNgetword=&F4?). If REMs are to 
be removed, PROCskip moves the pointers so 
as to delete the REM and close up the space; 
otherwise PROCcopy is called which copies 
the line across. 

Spaces operate in a similar way, except 
that for each space found. FNremove is used 
to check whether the characters either side of 
the space suggest that It is removable or not. 
The process continues until the end of the 
program is reached, when the final bytes &0D 
&FF are copied over, 

10 REM >Squeeze 

20 REM Program Program Compressor 

30 REM Version A 0.2 

40 REM Author Lee Calcraft 

50 REM RISC User July/August 1989 

60 REM Program Subject to Copyright 

70 : 

BO page%’^&8F00 
90 MODE12 

100 PRINTER ROGRAH COMPRE 
S S 0 R*’ 

110 PRINT’'"Remove REMs ? * 

120 doremsI-GET-ASC^Y" 

130 XF dorems% THEN PRINT^'Y" ELSE PRIN 
T"K" 


140 PRINT"Remove Spaces ? 

150 dospaces%-GET-ASC"Y" 

160 IF dospaces% THEN PRINT"Y" ELSE PR 
INT"N" 

170 IF ?page%<>13 OR page%?l=6FF THEN 
ERROR 255,"No program in memory" 

180 IF dorems% THEN PROClinerefs 
190 PROCscan 

200 startsize%= 30 urce%+lenl+ 2 -page% 

210 finals!ze%^dest%+dlen%+2”page% 

220 PRINT TAB(0,12)"Initial size st 
artsize%," bytes" 

230 PRlNT"Final size ,finalsize%;" 

bytes" 

240 PRINT"Bytes saved ,startsize%“f 

inalsizel 

250 PRINT"Lines removed=",lost% 

260 PAGE-pagel 
270 *FX138,0,79 
280 *FX133,0,76 
290 *FX138,0,68 
300 *FX138,0,13 
310 END 
320 : 

330 DEFPROCscan 

340 PRINTTAB(0,8)"Line number" 

350 linesl-0 1 30 urce%=page%: dest%^age% 

3 60 lost %-0:1en%-0:dlen%-0:B%^0 
370 REPEAT 

380 source% +-len%:dest %+-dlen% 

390 len%"SOiirce%?3 

400 IF source%?len%<>13 THEN ERROR 255 
,"Bad Program" 

410 Iineno%-^100*(soutC€%?l)+(3ource%? 

2 ) 

420 PRINTTAB[15,8)llneno% 

430 key%-FNgetword 
440 datal-key%-fiDC 
450 IF keyl-&F4 THEN 

4 60 IF dorenis% THEN 

470 IF FNnoref THEN PROCskip ELSE PROC 
copy 

480 ELSE PROCcopy 
490 ENDIF 
500 ELSE 

510 IF dospaces% THEN PROCspaces ELSE 
PROCcopy 
520 ENDIF 
530 lines%+-l 

540 UNTIL 3ouroe%?(ien%+lj^&FF 
550 de3t%?dIen%-4i0D 
560 dest%?(dlen%+l)=&FF 
570 ENDPROC 
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580 : 

590 DEFPROClinerefs 
600 DIM gotos%(l000) 

610 PRINTTAB(0,6)"Checking line refere 
nces" 

620 g%=0tsource%=page%ilen%=0 
630 REPEAT 

640 source%+=Ien%:len%=3ource%?3 
650 IP source%?len%<>l3 THEN ERROR 255 
f "Bad Program" 

660 A%^3:key%“0:inquotes%"FALSE 
670 REPEAT 
680 A%+-1 

690 key%=source%?A% 

700 IF key%-fi22 THEN inguotes%-NOT inq 
uotes% 

710 IF key%“aaD THEN 
720 ref%=FNgetref 
730 gotosi{g%)-xef%:g%+-l 
740 ENDIF 

750 UNTIL A%>len%-5 

760 UNTIL sources?(lenl+l)=£FP 

770 ENDPROC 

780 : 

790 DEFFNgetref 

800 A%+-l*nol%=(source%?A%|«2 

810 A%+=1: no2%=3Ciurce%?A% 

820 A%+-1:no3%^30urce%?A% 

830 (no2% EOR (nol% AND &C0)) OR {(no 

3% EOR ((nol%«2J AND iiC0n«8) 

840 ; 

850 DEFFNnoref 
860 D%^0imatch%=PALSE 
870 WHILE D%<g% AND match%=FALSE 
880 match%=iineno%=gotos% (D%j :D%+=*1 
89Q^ENpWHILE- ^ 

900 IF match% THEN PRINT TAB(0,10)"Ref 
erence tb line ";lineno%;" so not delete 
. d”SPC 16^1 VDUJ 
910 =NOT inatch% 

920 : 

930 DEFFNgetword 
940 A%-3;key%=0 
950 REPEAT 

960 A%+=^1;key%-source%?A% 

970 UNTIL key%<>32 OR key%>&3A OR A%>1 
en%^2 

9 BO =^key% 

990 : 

1000 DEFPROCcopy 

1010 FOR A%*0 TO len%-l 

1020 bytel=30urce%?A%:dest%?A%“byte% 

1030 NEXT 
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1040 dlen%=len% 

1050 ENDPROC 
1060 : 

1070 DEFPROCskip 
1080 lo3t%+“l: dlen%-="0 
1090 ENDPROC 
1100 ; 

1110 DEEPROCapaces 

1120 B%-0 :byte%^0 :iriquote3%=FALSE 

1130 last%=0:dlen%-0 

1140 FOR A%-0 TO len%-l 

1150 byt e % *s ource % ? A% 

1160 IF A%>3 AND byte%-s22 THEN inquote 
s%"NOT inquotes% 

1170 skip%"A%>3 AND NOT inquotes% AND b 
yte%"32 AND FNremove 
1180 IF NOT skip! THEN de3t%7B%-byte%:B 
%+-l 

1190 IF A%>3 AND 3kip%=FALSE THEN last% 
-byte% 

1200 NEXT 

1210 dlen%-B%:dest%?3“dlen% 

1220 ENDPROC 
1230 : 

1240 DEFFNremove 

1250 next%“SOurce%?(A%+1) 

1260 IF data% THEN 

1270 result%= (last%-=0 OR la3t%=SDC OR 1 
ast%-s2C OR last%-&22} 

1280 ELSE 

1290 result%-FNleftok(last%) OR FNright 
ok(next%) 

1300 ENDIF 
1310 “result% 

1320 : 

1330 DEFFNleftok(v%) 

1340 “v%>fi7E OR v%<£ 21 OR v%=fi28 OR (v% 
>£29 AND v%<£ 30 AND v%<>£2E) OR (v!%>£39 
<r%<£3F) 

' "l350 : 

1360 DEFFNrightok(v%) 

1370 IF v%=43 THEN^FNnotsave 
1380 -v%>£7E or v%<£ 21 OR (v%>fi29 AND v 
%<£30 and v%<>£2E) or (v%>£ 39 AND v^<£3F 
) OR v%=£ 29 
1390 i 

1400 DEFFKnotsave 
1410 E%*3 
1420 REPEAT 

14 30 E%+=1r test%=source%!E %=£ 56 41532A 
1440 UNTIL te3t%-TRUE OR E%>A%-3 
1450 =NOT test% 


m 
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MACH 

TECHNOLOGY 

MEMORY UPGRADES 

Break the Megabyte barrier with Mach Technology's 2MB and 4MB expansion 
boards for 300 series machines. 

2MByte — £340 
4MB3rte — £520 

HARD DISC SYSTEMS 

Bring affordable Mass Storage to your Archimedes with our hard disc systems. 

Highlights of the range include 

20MBytes — £249 
SOMBytes — £339 
40MBytes — £359 

All models compatible with A305-A310 and require backplane. 


HYPERBASE 

An advanced database architecture based on ’cards’ and ’stacks' which can 
contain textual and graphical information in any combination. 

Cards may be connected via user defined links to allow arbitary information 
networks to be constructed. 

Other features include powerful search and query functions across text fields, 
sorts and calculations, report generation and printing and the exchange of text 
and graphic images with other programs, 

£49.95 (incl VAT) 

Prices exclude VAT and carriage except where stated 

i 


MACH TECHNOLOGY LTD 

75 HYDEWOOD ROAD, LITTLE YELDHAM, ESSEX C09 49 X 
Tel: (0787) 238125. Fax: (0787) 238114 






Reviewed by Mike Williams 


DiscTree is the latest software product from 
Mitre Software, producers of the database 
package Flying Start (reviewed in Volume 1 
Issue 5), and DeskTop Enhancer (DTE) which 
runs under Arthur 1.2. 

DiscTree is specifically written to run under 
RISC OS. For your money you get an 
unprotected disc and a 30 page manual. The 
software provides three distinct functions, a so- 
called Tree Viewer for exploring directory 
structures, a comprehensive back-up facility, 
and a related restore operation. The software 
generates the now standard windows and 
menu displays which we are used to with the 
Archimedes, and particularly RISC OS. 

Installing DiscTree as an application on the 
menu bar is straightforward. Pressing the 
Menu button while pointing to DiscTree’s icon 
brings up a menu from which a floppy or hard 
disc drive may be selected. A window then 
opens showing the complete hierarchical 
directory structure for that disc. This is quite 
Informative, and DiscTree then allows you to 
open directly any folder in that structure. 

DiscTree also provides a comprehensive 
’find file* option, searching selected directories 
for specified file types, using wild-carded file 
names if you wish. This all works quite 
effectively, but there is one major pain to be 
endured. Almost every DiscTree function you 
choose demands that the original disc be rer 
inserted on two separate occasions, despite 
the fact that DiscTree has been installed on the 
menu bar. It can be effectively avoided on hard 
disc systems, for which DiscTree is primarily 
intended, by installing the software on the hard 
disc itself. Any subsequent access to DiscTree 
goes largely unnoticed. 

On the plus side, DiscTree is fully multi¬ 
tasking, allowing several discs to be examined 
together, and file search (or other) functions to 
take place concurrently with any other multi¬ 
tasking application. 

The back-up facility uses the same 
directory, file name and file type specifications 
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as the find operation. This allows all or part of 
a disc to be backed up. Furthermore, files for 
back-up can be selected by date, so you could 
back up all files last changed after a particular 
date, for example. 

I tried backing up one of my frequently used 
floppies. This worked just as described in the 
manual, but involved an inordinate degree of 
disc swapping, and has no real advantage 
over the file copy facilities available in RISC 
OS. However, when backing up a hard disc, 
DiscTree comes into its own. and will 
automatically create a whole set of back-up 
floppies as required. In addition, the complete 
back-up specification can be stored as a so- 
called script file for future reference to further 
automate the process. 

Restoring backed-up files is also quite 
comprehensively handled. Files may be 
selected in a variety of ways (singly, by 
directory etc.), and unlike some systems I 
have seen, is flexible and does work 
exceedingly well. The one real chore, apart 
from swapping the floppies in and out. is 
again the recurrent necessity to re-insert the 
original DiscTree disc, unless installed on a 
hard disc. 

CONCLUSIONS 

If you have a wealth of v^aluable 
^ information stored on a hard disc system, 
then DiscTree is likely to prove very useful, 
both for regular back-ups and for its 'find file' 
facility, but even so the product seems rather 
expensive for what it has to offer. There is 
little value for the floppy only user, where the 
frequent need to re-insert the original disc is 
nothing but a pain. 


I Product 

DiscTree | 

1 Supplier 

Mtire Software ltd, 
Internotionol House. 

26 Creechurch lane. 
London EC3A 5BA 

Tel 01-283 4646 

I Price 

£49.95 ifKT. VAT and pAp. 
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ROBICO ADVENTURES 

FOR THE ARCHIMEDES 

T 

RISE IN CRIME (Archimedes SOS/310/400 £29,95} 

In the vast galaxy-wide federation, you are one of the abnormal few: unconditioned, discontented and insubordinate! Can you rid yourself of the 
shackles of this conformist, mind-imprisoned society? Rise in Crime boasts over 396K of text 400 individuaHy described locations, 150 obiects and 
several high resofution cotour graphic scr&ensf Mouse driven input and an advanced parser make this a superb addition to your Archimedes collection! 


FUGITIVE'S QUEST (Archimedes 310/400 £2B.BS) 

As Paul Preston, respectable schoolmaster, your life is shattered when you are convicted of murder - a crime you did not commit I Set in 1952, against 
the stunning backdrop of southwest England, the hangman's noose awaits unless you escape and find the evidence to clear your name! Fugitive's 
Quest is a large adventure with about 230 locations, 80 objects and reams of well written text. An adva nced parser, mouse driven input and several fuft 
cotour, photo-quafity iitustrations complete the unmistakable feel of Robico quality. 


ENTHAR SEVEN (Archimedes 306/310/400£29,95} 

It is the distant future ... Whilst on board a tiny Interplanetary Space Hopper its orbit begirds to decay! Once on the planet surface can you escape and 
return, again, to the freedom of the stars? Enthar Seven is a disk based mega-adventurel It has 450 locations, 80 objects, a massive vocabulary and 
T200 messages! And that's just the 8-bit versionsl The Archimedes version has over 140K of text and some of the bast graphics you'ft ever seat 



You can order by telephone using your ACCESS card, or by cutting out the coupon below. All orders are despatched first class by return. 


To: ROBICO, 3 FAIRLAND CLOSE, LLANTRISANT, MID GLAMORGAN CF7 8QH 


-X 

Tei: (0443) 227354 


AP\/ENTURf 

MODEL 

QTY 

PRiCE 

TOTAL 

RISE IN CRIME 

ARC 


£29.95 


FUGITIVE'S QUEST 

ARC 


£29.95 


ENTHAR SEVEN 

ARC 


£2995 



Name .. 
Address 


I enclose a cheque/postal order payable to 'ROBICO' for £ 

or please debit my ACCESS account: I—I—1—^—\—1 -1 


Signature 
Expiry Date . 
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Peter Rochford looks at what's rrew on the Archimedes games front. 


The Archimedes games scene continues to 
stay healthy with a steady trickle ot new 
releases. No signs yet however of the much 
talked about 3D Pool from Firebird, Be 
assured, though, i'll have a review copy as 
soon as it becomes available. 

On to the reviews. Three different types of 
games this month which will appeal to most 
tastes. First off we have the latest from 
Minerva, called Thundermonk {£14.95 inc. 
VAT). This is a puzzle solving arcade game 
where you must collect certain Items in the 
right sequence before moving on to the next 
level, avoiding various hazards along the way. 



Thundermonk 


The game is set in a monastery and you 
guide a cloaked monk sporting an extraordinarily 
long nos^ around the cdhrldbrs arid rooms 
collecting the items to gain extra energy, whilst 
searching for the keys to open the doors. There 
are lots of strange looking objects that sap your 
energy, but these can be destroyed by lobbing 
bombs at them. Very subtle] 

The graphics are excellent with plenty of 
interesting features, and the game has a 
smooth four-way scrolling screen. Digitised 
sound effects are included but mercifully can 
be switched off if desired. 

Thundermonk is certainly an enjoyable 
game that quickly becomes quite addictive. 
The level of difficulty is pitched sensibly low at 
the outset and that should make it attractive to 
many. Definitely recommended. 


Next off we have a golf game called Holed 
Otrf (£19,95 inc. VAT) fram a new software house 
called 4th-Dlmenslon, A version of this has 
already been released for the Beeb and Master. 
The game claims to have been ‘designed by 
enthusiasts for maximum reallsmv This has been 
said before about other simulation-type games 
but as far as Holed Out is concerned this seems 
to be true. The game is mouse-driven and 
features several playing options, including 
number of players and degree of difficulty. 

A view of each hole Is drawn on screen 
starting from the tee with a figure preparing to 
take a shot. You select your club and distance 
and watch as the figure draws back the club 
and cracks the ball off down the fairway. There 
are the usual hazards to contend with such as 
trees, bunkers and water. On reaching the 
green, the screen displays an aerial view of the 
putting surface along with an indication of slope. 

The graphics in Holed Out are excellent, 
although the screens do take quite a tew seconds 
to be drawn, even on the Arc. The digitised sound 
effects give added realism to the game. 



Holed Out 


I found Holed Ouf incredibly addictive when 
J first played it on the Beeb, and the Arc 
version is even better. As a golfer myself, I 
think it is a first class simulation. Others who 
have seen the game and are not golfers also 
have quickly become addicted to it. In fact, I 
had a hard job keeping my hands on the 
review copy! it Is fascinating to play and has 
lasting appeal. Again, highly recommended. 
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Fugitive s Quest 


Finally, we have a graphic adventure called 
Fugitive’s Quest (£29.95 Inc. VAT) trom Robico 
Software. The game scene Is set in 1952 and 
you take the role of a man who has been wrongly 
found guilty of murdering his wife and now faces 


the gallows. You are being transported by train to 
Plymouth to face the hangman and you must 
escape and prove your innocence. 

As usual with other Robico adventures I 
found the opening location a hard nut to crack 
but kicked myself for having been so daft when 
I finally succeeded in getting out of the train 
compartment. However, the rest of the 
adventure is no easy matter either! But then a 
good adventure should not be too easy. 

It is difficult In the short space of a review to 
give a good insight into any adventure. Suffice 
to say that Fugitive’s Quest like other Robico 
adventures is of a high standard and I confess 
to being already rather hooked on it. I would 
recommended it to seasoned adventurers. My 
only criticism is the price which at £29.95 is a 
bit on the steep side. 

All the above games are r\ow being stocked by 
BEEBUG and can be obtained with the usual 
discount for members. 


Elxplore the fascinating world of 3'D shapes with Archimedes STELLATOR2 
Ray-traced shadows now 5x faster. Interrupt/restart facility. £16.50 (Inc p&p. notes, user support) 
Poly Projects. 107 Appledore Avenue. Nottinghsm NOS 2RW 


B/kOKUP 
IN BROMLEY 

AUTHORISED ACORN DEALERS ^ 

We offer full technical backup, service and advice as well as 
a comprehensive range of software and hardware 
for your Archimedes. If you have a problem - we can 

help you. 

Call in for a software or hardware demonstration, 
or phone for prices and availability 

Dala f lore 

6 Chatterton Road. Bromley. Kent 
Telephone : 01-460 899 J (closed Wednesdays) 

































MEMORyl)LLOCAT(ON REVISITED 




David Spencer offers some more informatfon on configuring memorv aSlocafions 

under RISC OS, 


Last's month RISC User included a short 
utility program to dynamically change the 
allocation of blocks of memory such as the 
screen RAM and the font cache, without need 
for a hard reset. Since then, David Pilling has 
pointed out that there is in fact an 
undocumented module to do just this on the 
RISC OS applications disc. However, we can 
be excused for not finding it earlier, as it is 
hidden away in the Lander game. To install the 
module, mount the Apps 2disc and enter: 

QUIT 

$.!Lander.MemaHoc 


Memaftoc offers a total of nine star 
commands: 

*SystemSlze ‘BMASfze 

*ScreenSize *SpHteSlze 

*FontSlze *BAMFSStze 

•RMAFree '^SpriteFree 

^FontFree 

The first six of these are used to set the total 
amount of memory allocated to the given area. 
The other three commands are used to set the 
amount of free space In the RMA, Sprite and 


Font areas independent of what is already in 
the particular area. All the commands have the 
same syntax, for example: 

* Fonts! ze <size> [<star cOTtiniand>] 

The parameter stze is the number of K to 
allocate {in decimal), and this will be rounded 
up according to page size. For example: 

*ScreenSize 150 

will in fact set the screen size to 160K. 

Like last month*s utility, these commands 
can only change memory allocations from 
outside an application (in other words from the 
star prompt). However, if the command fails in 
any way, it doesn't produce an error. Instead, 
the optional star command given after the size 
Is executed. In the simplest case this could be 
made to cause an error by using the ‘Error 
command. For example: 

*RMASize 240 Error 100 "Rmsize failure” 
Alternatively, m a more sophisticated scheme, 
the star command could be used to run 
another program which then tried to correct the 
source of the error. rm 


Two Basle Compilers (i^mtiiniedf^rompage 30) 


practice Dabs' documentation is far more 
substantial and much more detailed, now 
providing over 230 pages of information. Yet 
Silicon Vision's compiler is definitely the more 
complete one. Their product produces faster 
code. It outperforms ABC2 in a number of ways - 
speed, easier multiple star commands for 
relocatable modules, and fuller array handling, 
for example. 


Though most programs compiled with ABC are 
slower than those compiled with RiscBastc, they 
will still be running twice as fast as the equivalent 
Basic on average. 

if you own neither, are looking for THE compiler 
to go for, and are confused about which one 
deserves to win the very public battle that has been 
raging in the advertisements, well my preference is 
for RiscBasic, but it is a very close thing. 


Almost as important is ease of use: to the 
firstrtime ABC2 user paying nearly £100 for a 
compiler, there are a number of operations, 
particularly with the Arthur version, that are a 
tittle off-putting. On the other hand, Silicon Vision 
has come up with a serviceable and accessible 
piece of software that is easy to understand and 
even easier to use. 

ft you already have ABC1 and are wondering 
whether to be content with the Dabs upgrade, 
then it is very likely that you will be satisfied* if 
you can live with ABC's greater limitations. 


Product 

Rlsc&a$Jc 

Supplier 

Siilcon Vision 


Signal House, 


Lyon Rood, Harrovy, 


Middx HAT 2AG. 

Price 

|; 

£99.95 Ino. VAT and p4p. 


Product 

Suppitor 


Price 


ABC2 
Dobs Press 
S Vrclorio lane, 
Whilerield, 

Manchester M25 6AL 
£99.9& Inc. VAI and p*p. 


m 
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ARE YOU GOOD ENOUGH? 

As the leaders in softVi/are for the Archimedes range of computers, CLARES 
MICRO SUPPLIES are looking to extend our range even further. We are 
looking for people who are as excited by the Archimedes as we are. 

If you have written any programs, completed or not, then we would like 

to hear from you, 

If you have any ideas for programs and have the ability to execute the 
ideas then we want to hear from you. 

If you have the ability to program the Archimedes but not the Ideas to 
program then we want to hear from you. 

Programs can be written in any language as long as they perform their 
stated task. Many of our programs contain large chunks of BASIC with 
ARM code in the areas that it is needed. BASIC on the Archimedes is a 
very powerful language and we do not attach any snob value to its use. If 
your program does what is meant to do then thats all we are interested in. 
Why not join the top team on the Archimedes. You get the support of our 
in-house team, privileged access through us to Acorn and Invitations to 
our informal programmers seminars. 

The most important point is that you wilt be earning top royalty rates of if 
you prefer we will purchase your program outright. 

Please write, in confidence, to Mr. D. Clare at: 

Clares Micro Supplies, 

96 Middlewich Road, 

Northwich, 

CHESHIRE CW9 7DA 

If you have a program either complete or in development then please 
enclose a copy for our evaluation. 

To protect yourself we advise that you lodge a copy of the program with 
your bank or solicitor BEFORE you send us a copy. You can then prove 
that your program pre-dates anything that we have. 

Act today and become port of the leading software team producing 
software for the worlds fastest micro. 









rECHNIC>Avl QUERIE 


COPY QUERY 

Dear Rise User. 

I hove had a lot of problems using 'COPY. In fact 
I have not yet succeeded in making if work at all. 
though I have been able to copy files using the 
Desktop. Con you help? 

J.H.Waton 

From the comments that you make in your letter, I 
see that you hove RISC OS. The information on 
•COPY is given on pages 208-210 of the 
Archimedes User Guide supplied with the RiSC OS 
upgrade, but it is very short on examples. So I will 
supply some. 

To copy the file myfile In directory $.PROGRAMS to 
S.BACKUP. just use: 

♦COPY $.PROGRAMS.myfile $.BACKUP.myfile 
Or>e possible trap for the unwary Is that you must 
supply both a source and destination filename. The 
advantage of this is that you can change the name 
of a file as you copy it. 

If you are copying from one disc to another, you 
must give disc names or drive numbers, and these 
must be preceded by a colon. For example, to 
copy the file file 1 in the root directory of drive 4 to 
$.FILES on drive 0. with a destination file name of 
filebackup, you would use: 

♦COPY :4.$.filel :0.$.FILES.filebackup 

If you are using the disc name to identify the disc, 
the syntax is very similar. In the previous example, 
suppose that the name of the hard disc (drive 4) 
was HardDisc. and the rxame of the disc In drive 0 
was Backup, you could use: 

♦COPY -HardDisc. $ .'tiler :iea‘ckUp.$. FILES, 
filebackup 

As with all filing system commands, case is 
unimportant. 

In the brief space available here. I hove not been 
able to mention copying files between filing systems 
or the so-called Copy Options. The latter are 
detailed In the User Guide referred to above 
together with one example. 

Lee Calcraft 

TELEPHONE TONES 

Dear RISC User. 

Do you have any plans to publish a sound voice 
module that can generate the tones used by a 
tone’dial telephone? This could be used in 


conjunction with a telephone directory program 
that I am writing, in order to dial the number 
automatically. 

R. Carter 

If any member wishes to send us a sound voice 
module which they have written, then we will 
consider It for publication, as we did In Volume 1 
Issue 4. However. Mr. Carter doesn't actually need a 
separate module for his application. 

The Dual Tone Multi-Frequency (DTMF) system of 
telephone dialling works by transmitting two audio 
tor»es for each digit. The two tones are chosen from 
two groups of four, thereby givir>g a total of sixteen 
possible variatior^s. All that is needed to dial directly 
from the Archimedes Is to set up two sound 
chanr>els using the default 'WoveSynth-Beep' voice, 
and then use these to generate the two tones 
required. The commands needed to set up the two 
souPKj channels are: 

VOICES 2 

VOICE l,"WaveSynth-Beep" 

VOICE 2,”WaveSynth-Beep" 


The table below gives the two tor>es used for eoch. 


Digit 

Tone 1 

Tone2 

0 

24063 

26145 

1 

22288 

25564 

2 

22288 

26145 

3 

22288 

26726 

4 

22979 

25564 

5 

22979 

26145 

6 

22979 

26726 

7 

23482 

25564 

8 

23482 

26145 

9 

23482 

26726 


The tones can then be dialled using the following 
simple code: 

SODND l,-15,tonel,100:SOUND 2,-15,tone2,100 
t»TIME:REPEAT UNTIL TIME>ti20 
SOUND 1,0,0,0:SOUND 2,0,0,0 
This should be executed for each digit using the 
appropriate values for tone 1 and tone2. A delay 
loop and a second set of SOUND statements are 
used to cut the tones off abruptly. Obviously, the 
tor»es must be played down the telephor^e line, ond 
this can normally be done by placing the 
rTX)uthpiece r>ear to the speaker. Direct connection 
to the phone line Is r^ither permitted nor easy. 

David fencer 

m 
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/Archimedes 


PRODUCTS FOR THE 1990's 


NEW PRESENTERSTORY 

The uitimBte in Business Presentetion software. Turn your Archimedes into a looi to pro/eci combined 
images of Text, Logos, Graphs, Digmsed& Video Pictures to iHustrate your presentations more cleariy. Many 
specie/ screen features are inc/udedsuch as \/erti€a/ and smooth scroi/tng and bouncing /r can be used with 
most makes of RGB projectors or you can use your Archimedes monitor for smai/er Presentations. 
PRESENTER STORY isa\rai/able for Business app/ications now. Education andMedia/Video yerstons wi/fbe 
ayaiiab/e soon. RiSCOS compatib/e. 

£199.00 + VAT 


PRESENTER 

The established presentation package for Archimedes users in schoo/s and businesses a/ike. Co/our 3-D 
Bar-, Line- and Pie- chans and graphs can be made Qutckiy and easi/y in the Acorn W/MP environment 
These chans and graphs can be printed on FX-compatibie and integrex colour printers and also on P/otmate 
plotter Alternatively they can be ported into other packages, such as 1st Word Rus, Artisan & Graphic 
Writer. RISCOS compatible. 

£24.95 + VAT 


NEW CONTROL PANEL 

Confused about the * Configure comands? With Control Pane! there is no need to worry Use Control Panel to 
set the fight Archimedes" configuration for all your application software. You can then Save and Load the 
configuration settings of your choice for use at later dates. Control Pane! also includes a utility to build 
configuration files into program boot files, fully wimp-driven with constant real-time help screen. 

£14.95 + VAT 


NEW COLOUR CONVERTER 

Do you want to capture colour images onto your Archimedes screen!^ The Colour Convener podule running 
with the Watford Digitiser allows full colour images to be captured and saved as screens or sprites. The 
package also includes new Dithering Software which will give you greatly enhanced near-television Quality 
pictures, using an effective palette of256,000coloufsl The Colour Converter Width Podule and Software 
IS available now. 

£16995 + VAT 


NEW A I M (Aithimedes Image Managof) 

Public Domain Image Processing software from Delft University which wili increase the contrast and 
sharpen blurred images that have been digitised Many varied uses—in education, industry and the home. A 
multisync monitor is required in ordet to give the necessary resolution. 

£9.00 ^ VAT 



VISA 

ar^d 

ACCESS 


Aif Irngmuity products are avaUatM f^rmt or from good Acorn dealers. 

Educationai discour^ts am/ site-^eoces are mv^bie. 

for furthm defats f^ease co/ifacr us on OBB 685477 or write to 













GETTING INTO WINDOWS 

I am writing to express frustration at the apparently 
insuperable difficulty in understanding the WIMP system 
sufficiently to make use of it within programs. I have 
studied the series in RISC User Volume 1 Issues 5,6 & 7, 
and other articles elsewhere, and of course the 
Programmer's Reference Manual Despite considering 
myself computer literate, I have been beaten by the 
complexity of the WIMP system. 

I understand the basic principies - creating a window or 
menu is clear enough - but opening and polling are a 
different story. The problem is to write programs which 
use the features of the system and which work. I believe 
that this problem must be shared by a large number of 
your readers. The purpose of this letter is to convince you 
that the problem exists, and to suggest how to solve it. 

Norman Kirkby 

^tr.K/rkby's iemr continues by analysing whar he sees 
as the major probfems. and follows this w/th detaited and 
constructive proposals for tackling the problems 
highlighted above, in response, we have to say that 
above alt else the s/sfem is complex There is a 
wealth of detatl that has to be mastered before even the 
most trivial of WIMP programs can be mads to wo/k. We 
have been well aware that the first senes of three articles 
which Mr.Kirkby refers to were neither adequately 
detailed, nor yet sufficiently comprehensive, buf af that 
time, with a much lower membership, the magazine was 
smaller and competition for space much greater. 

However, as Mr.Kirkby rightly points out later in his letter 
the WIMP system, particularly under RISC OS, is far too 
important to ignore, and we hope to rise to the chailertge 
in future issues of RISC User. However, to do justice to 
the subject, and to explain it adequately will fake more 
than a short article or two. 

THE’BOFFiNS’ FIGHT BACK 

In the May issue of RISC User (Volume 2 Issue 6) you 
invite comment from 'more technically minded members'. 
I value RISC User for news and product reviews, but find 
the programs virtually useless. Programs are most useful 
to me for the techniques and ideas behind them, but 
these are rarely easy to untangle from your articles. The 
introductory sections are almost always too brief to 
provide a sensible explanation of how the program works, 


and the program listings are never commer^ted. This is 
particularly true of assembler programs. 

At this point you may cry ^No room*, but this is no 
solution. Fewer programs could be presented, but to a 
higher standard. Better explanation and proper 
commenting would give the beginner a chance of 
understanding the program, and would aflow readers like 
myself to extract the bits of interest; the needs of the 
inexperienced and experienced are not necessarily at 
odds. Programs could be relegated to an appendix {lower 
quality paper?) or even to the magazine disc. 

I hope this letter may help you to find out whether others 
share the same views. 

Df. Mark Wetton 

As might be expec.ted. previous comments in Postbag ha. r 
prompted several of the more technically minded reauers tc 
write m response. Cleany we shall be looking dcsely at r-e 
results of our reader survey included m the previous issue 
before mahrig any changes. The question of more detaiteO 
explanations at the expense of program hsi-ngs las 
suggested by Dr Weftcn; was covs'^ed m the questionnaire 
and js one possible cnange which we stiall be constdermg 
quite carefully Our thanks also to other readers w.no have 
wTiffen in with their ideas and suggestions 

A CALL FROM DOWN UNDER 

We here at the bottom of tha Earth, being so far away from 
our sources of BBC and Archimedes information and 
supplies, would like to make contact with one of your clubs, 
but which shall it be? We would like some help in that 
direction as there are quite a few members on our side of 
the world keen to keep up to date on all the latest details. 

So let's hear from you - you will at least get a reply from 
our members. 

TheoOlllfars 
Auckland BBC User Group 

Of course, we assume that BBC and Archimedes owners 
in New Zealand are avid readers of our fwo magazmes 
BEE8UG and RISC User anyway. But the personal 
contact between smaller and regional user groups can 
be very rewarding. If any group in the UK wishes to 
follow up the appeal from Theo Oilifers they should wrffe 
to him at Auckland BBC User Group, P.O.Box 9322. New 
Market Auckland, New Zealand. jjjj 
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You ain't seen nothing yet. 


PipeDream 3 -100% RISCware 
Available July 1989 

See it on stand 37 at the Acorn User Show July 21-23 

( 

COLTON SOFTWARE, BROADWAY HOUSE. 149-161 ST. NEOTS ROAD. HARDWICK. 
CAMBRIDGE CBS 7QJ, ENGLAND. TEL. 0954 211472 FAX. 0954 211607 







This montti's collection of useful Hints and Tips is rounded up by David Spencer and Lee CaEcroTt 


SYS STRINGS 

You may be aware that a siring can be passed directly to 
a SYS call when in fact the native SWI call expects a 
pointer to a string. In such cases, Basic performs ail the 
necessary conversions. For example: 

SYS "OS_WriteO",'’Hello World"-i-CHR$0 

It is, however, aiso possible to read a string back from a 
SYS call. Take for example: 

DIM buffer 100 

SYS "OS_SWINumberToString", 5 2 6, buffer, 
100 TO ,naine$ 

PRINT name$ 

This wiil convert the SWI number &2S into its 
corresponding name, "OS^GSRead". 

The DIM serves to set up a block of memory to hold 
the converted name, and this is passed to the SWI 
call as the parameter for register R1, On exit from the 
call, this register still holds the pointer, and the 
assignment to name$ forces Basic to read the string 
back into the string variable. This technique can be 
used in ai! cases where a SWI call returns a pointer to 
a string. 

CHANGING DISCS 

The RISC OS Desktop on the 300 series offers the 
very nice feature that if an attempt is made to access 
a disc which is not currently in the drive, then it will 
wait until the correct disc is inserted and then continue 
without any further action being necessary However, 
the new drives used on the 400/1 series and the 
A3000 do not provide a Disc Changed Interrupt 
(DCIRQ), and this means that if the correct disc is not 
present, then once it has been inserted you must go 
and click on the 'OK' icon before the new disc is 
recognised. 

On the good side, tie new disc drives have moulded eject 
buttons which cannot (should not?) fly off. 


APPENDING LISTING 

We sometimes publish particularly long programs in RISC 
User in two or more parts. Examples of this are the RISC 
User Notepad and the Toolbox, It can be very hard to find 
any mistakes made when a new set of lines are added to 
an existing program, and a better way is to enter and 
check the new lines before adding them to the existing 
program. To do this, enter the new tines as if they formed 
a complete listing, check it, and save the program as a 
text file by using the commands: 

*SPOOL TextProg 
LIST 
*SPOOL 

Then, load the original program and add the new lines 
with the commarvJ: 

*EXEC TextProg 

The result will then be a complete program with the new 
lines added to the existing code. 

QUICK PRINT 

Under RISC OS, the caEl: 

SYS ’■OS_Pi:intCbar'’,code 

will send to the printer the single character whose ASCII 
code is code. This call will work regardless of whether the 
printer has been enabled with VDU2, or even completely 
disabled using *FX 3. 

INPUT/OUTPUT REDIRECTION 
A major, yet little known, feature of both RISC OS and 
Arthur is the ability to redirect input and output during the 
execution of a star command. This means that all output 
that would normally be sent to the screen will instead go 
to a file, or all input that would be read from the keyboard 
Is read instead from a file. This redirection is achieved by 
adding one of the following to the star command: 

{ > file } to send output to a file 

{ » file } to append output to a file 

( < file } to take input from a file 


65 


RISC User July/August 1989 















fflWF^ny vm 



Spaces are critical, and there must be at least one 
space around each element, including before the'{' and 
after the ')\ 

The redirection specification, as these are called, can be 
placed anywhere in the command where a space would 
otherwise be. For example: 

*Basic { > Bout } -Quit MyFrog 

This will execute the Basic program MyProg, saving all 
the output in the file Bout, and QUITlng when finished. 


A frequent sight in assembly language source code is the 
following two lines: 

1000 [ 

1010 OPT pass% 

This has the disadvantage that the Basic assembler wiil 
print the current instruction pointer address after the 'f is 
encountered, even if the OPT subsequently turns off the 
listing. This can cause two addresses to flash on the 
screen while trying to assemble the code with no listing. 
To get around this, put the two commands on a single 
line, thus: 

1000 [OPT pass% 

TYPES DON'T MATCH ERROR 
The error message 'Types don't match'’ is given If you try 
to save a file {using SAVE, *SAVE of OS_File) with a 
name already used for a directory. If you have a large 
number of objects in your current directory, you might well 
not realise the coincidence - and this very unhelpful 
message only obscures the problem. 

If you try to load a directory, you get the much more 
helpful message: 

xxxx is a directory. 

SWiS AND INTEGER VARIABLES* 

When using variables in SWI calls it is advisable to use 
integer variables, because real variables will give the 
error ' Number too big" if values greater than &7FFFFFFF 


are ever assigned. This is because Basic converts the 
assigned value to an Integer before passing it to the 
corresponding SWI call, and the valid range for integers is 
-&80000000to+a7FFFFFFF 

LARGE PROGRAMS IN TWIN, AGAIN 
In RISC User Volume 2 Issue 5 we gave a hint about 
overcoming Twin's 6527 line limit with Basic programs. 
David Pilling reports another solution. When you exit Twin 
with a program longer than this, Basic renumbers it so 
that every line is given the number "9". You can then use 
RENUMBER 1.1 to renumber it correctly. You can even 
RUN the program with all lines set to 9, providing of 
course, that no line number references are made. 

READING THE COLOUR PALETTE 
The SYS call ''OS_ReadPalette" can be used to read 
the colour palette including the border colours. The 
following procedure makes use of this. It takes a single 
parameter: the logical colour number to be 
investigated. If you want information on the border, set 
this to -1. It returns with the variables red, green, and 
blue, set to the amounts of red gwen and blue used in 
the physical colour (range 0-240), For further 
information, see the ProgrammBfs Reference Manuaf 
part 1, 

10 REM >Palette2 
20 MODE 12 

30 PROCreadpalette(2) 

40 PRINT"red ";red 
50 PRINT"Green green 
60 PRINT"Blue 'Ublue 
70 END 
80 : 

90 DEFPROCreadpalette (logcol) 

100 IF IogGol=-l THEN border-TRUE ELSE 
border=FALSE 

110 SYS "OS_ReadPalette'Mogcoli 16-8*b 
order TO ,,first 

120 blije=first»>24 

130 green=(flrst>»16) AND &FF 

140 red= {first»>S) AND &FF 

150 ENDPROC j^TJ 
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ARCHIMEDES VISUALS 

A demonstraticm ol Iha offads that can ba acbievad bj^ dfredl^ 
reprogramming frie video controlter chip - VlDC. 


❖ BONUS ITEIVIS 


eESTCOPY 

A utility from Acom which will help you recover fiCas from a 
corrupted disc. The utility will take a named fite and will try 
end transfer as much of it as possible to a new diso- 


K£YBOA(?D UTIUTY 

This Desktop Litility, also from Acorn, simpEifies the entering 
ol special characters, such as foreign letters. Trying lo 
remember the necessary ALT key combination for all the 
d^erectersoan be fairly hard. This utility will display all the 
special characters on the screen, and allow them to be 
eniered simply by clicking on the appropriate one. 


ARC SCAN DATA 

Index entries for this Issue of RISC User and the latest 
BEE BUG (Vo 1.8 No.2) to be used with AncscaJt. 


Rise User magazine discs are available ta order, or by subscription. Full delalla of prices etc. are given on I he back cover of each Issue ol RISC User. 


MULTI TASKING DISC FORMAHER 
A Desktop utility which can format a fbppy disc while you 
continue with other applications. 


CROSS REFERENCER 

A utility to list the names of ail variables, procedures and 
functions used in a program, together with the numbers of the 
lines on which they occur. 


BASIC SGIUEE2E 

A procedure which will remove unnecessary spaces, and 
optionally REMs. from a Basic program. 


BBC SCREEN CONVERTER This program will lake a saved screen from a model B or Master, and convert it into an 

Archimedes format screen. 


DESKTOP 8 AS EC HANDLER A useful Desktop Utility which converts Basic programs to text files artd vice versa. This 
enables programs to be examined and altered wKhout leaving the Desktop, 


[M(§]g)(^25cnT(^ lS)a^(s 
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ARCHIMEDES PROCEDURE LIBRARY' 

This month's procedure is a generalised input routine which 
allows textual dala to be eniered with formatling and error 
checking. 



BEEBUG Ltd 

Dolphin Place i Holywell Hill, St* Alhans, 
Herts ALl lEX 
TeL (0727) 40303 
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RISC USER magazine 




MEMBERSHIP 


RISC Llsar is availabje only on subscription at the rates shown below. Full subscribarB to RISC User may also take out 
a reduced rate subscription to BEEBUG (the magazine tor the BBC micro and Master series). 


Aff subscnplions, including 
Oilerseas, should be in 
pounds sterfing. tVe wiii 
also accept pay men f by 
Connect, Access and 
Visa, and officiaf UK 
orders ate wetoome. 


RISC USER SUBSCRIPTION RATES 


RISC USER 


£U.sa 

£20.00 

£25.00 

£27,00 

£29,00 


1 year (10 issues) UK, BFFO, Ch.l 
Rest of Europe & Eire 
Middle East 
Americas Africa 
Elsewhere 


& BEEBUG 

£23.00 

£33.00 

£40.00 

£44.00 

£4d.00 


^ BACK ISSUES 

\ We intend to mwntain stocks of badt issues New subscribers can toerafare o6£a/n eariier copies to provide a 
i complete set from Vol. 1 issue t. Back issues cost£t.20 each. You shouid also indude postage as shown: 


Destination 

First Issue 

Each subsequent Issue 


UK. BFPO, Ch.l* 

top 

3C^ 


Europe plus Elro 
£1 
50p 


Ets« where 

£2 

£1 


’ 7///1 I I 


' W W \ \V 


MAGAZINE DISC 


The programs from each issue of RISC User are available on a twnth/y di$a This wll be available to order, or 
you may take out a subscription to ensure that the disc amives at the same time as the magazme. The first issue (with 
six programs and animated graphics demo) is at the special low price of £3.75. The disc for each issue contains all ifie 
programs from the magazine, together wid\ a number of additional items by way of demonstration, all at the standard 
rate of £4 75. 


MAGAZINE DISC PRICES 

Single issue discs 

SiK months subscription 

Twelve months subscription 


UK 

£ 4.75 
£25.50 
£50.00 


Overseas 

£ 4.75 
£30.00 
£56.00 


Disc kidude podage, but 

you should add €0p per disc for 
individugi orders {30p hradditioffd 
discs on the same order). 


M orders, sut^riptions and other 
correspondence should be 
addressed to: 


RISC User, Dolphin Place, Holywelf Hill, St Albans, Herts ALT 1EX, 
Telephone: St Albans (0727) 40303 

(24tYs answ&fphone ssA'fce for paym&nf by Connect, Access or Visa cord) 
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